域帳號加到本機Administrator 群組和本機Power Users組

             域帳號加到本機Administrator 群組和本機Power Users組

在日常工作中,有時需要將某個AD帳號加到本機Administrator 群組中,但是如果用AD中的受限組來做的話，會將Admin組現有的其它成員全部移出來的！下面的指令碼就是專門為解決此問題所寫的!

Dim sFlag
Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("WScript.Network")

strComputer = oWshNetwork.ComputerName
sFlag=0
Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In colGroups.Members
    'Wscript.Echo  objUser.Name

Next

strTestString = "/" & strComputer & "/"

Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In colGroups.Members
    If InStr(objUser.AdsPath, strTestString) Then
        'Wscript.Echo "Local user: " & objUser.Name
    Else
        IF objuser.Name = "DomainUser" Then
           sFlag=1                       
            'wscript.echo "IN"   
        end if 

      'Wscript.Echo "Domain user: " & objUser.Name

    End If
Next
if sFlag=0 then 
   'wscript.echo "NO"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
             Set objUser = GetObject("WinNT://Domain/DomainUser")
             objGroup.Add(objUser.ADsPath)
end if             
其中加了一個判斷檢測後,就不管此使用者是存在於原生Administrator 群組,都不會有錯誤提示,如果已存在,則結束運行指令碼,如果不存在,將DomainUser加到本機Administrator 群組!
有需要的使用者,將上面的代碼COPY出來,存為.vbs格式,放在domain.com\SYSVOL\domain.com\scripts下面,用GPO加到Computer Setting的啟動指令碼中,這時候對使用者的許可權沒有要求,因為這個時間是電腦啟動中,使用者還沒有登入,是以網域系統管理員的身份在執行指令碼.

大家要用的話,只要將Domain改為你的Domain Name,將DomainUser改為你要加到本機Administrator 群組的帳號,就可以了!

大家都知道，在域環境中，預設情況下，所有域用在本地電腦中只有Users組的許可權，但是，在實際應用中，Users的許可權很少，連設定共用都不行，有些環境需要給域使用者POWER USERS的許可權，下面的指令碼，就是為實現些功能而寫！

注意上：應用時，請將下面黑體的domain改為你自已的網域名稱！

dim sFlag
Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("WScript.Network")

strComputer = oWshNetwork.ComputerName
sFlag=0
Set colGroups = GetObject("WinNT://" & strComputer & "/power users")

For Each objUser In colGroups.Members
    'Wscript.Echo  objUser.Name

Next

strTestString = "/" & strComputer & "/"

Set colGroups = GetObject("WinNT://" & strComputer & "/power users")

For Each objUser In colGroups.Members
    If InStr(objUser.AdsPath, strTestString) Then
        'Wscript.Echo "Local user: " & objUser.Name
    Else
        IF objuser.Name = "Domain users" Then
           sFlag=1                       
            'wscript.echo "IN"   
        end if 

      'Wscript.Echo "Domain user: " & objUser.Name

    End If
Next
if sFlag=0 then 
   'wscript.echo "NO"
Set objGroup = GetObject("WinNT://" & strComputer & "/power users")
             Set objUser = GetObject("WinNT://domain/domain users")
             objGroup.Add(objUser.ADsPath)
end if     

 

很實用，有興趣的朋友可以試試。

本文出自 “周平的微軟統一溝通” 部落格，請務必保留此出處http://1183839.blog.51cto.com/1173839/1277339