批量将域用户加入本地power user权限

dim sFlag
Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("https://www.360docs.net/doc/547252882.html,work")

strComputer = https://www.360docs.net/doc/547252882.html,puterName
sFlag=0
Set colGroups = GetObject("WinNT://" & strComputer & "/power users")

For Each objUser In colGroups.Members
'Wscript.Echo https://www.360docs.net/doc/547252882.html,

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: " & https://www.360docs.net/doc/547252882.html,
Else
IF https://www.360docs.net/doc/547252882.html, = "Domain users" Then
sFlag=1
'wscript.echo "IN"
end if

'Wscript.Echo "Domain user: " & https://www.360docs.net/doc/547252882.html,

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