Add Domain Users / Groups to local Groups remotely

18
Feb/100

Add Domain Users / Groups to local Groups remotely

Script that adds a Domain User to a local Group remotely.

Change the “DomainName” variable to suit your requirements.

Requires 3 Arguments:
[Machine Name] [Local Group to modify] [Domain User/Group to add]

If (WScript.Arguments.Count < 3) Then
        WScript.Echo "3 Arguments required: [Machine Name] [Local Group to modify] [Domain User/Group to add]"
        WScript.Quit 1
End If
 
Dim DomainName
Set net = WScript.CreateObject("WScript.Network")
 
DomainName = "yourdomain.com"
 
WScript.Echo ""
WScript.Echo WScript.Arguments(0)
WScript.Echo "==================="
 
set group = GetObject("WinNT://"& WScript.Arguments(0) &"/"& WScript.Arguments(1) &"")
 
on error resume next
 
WScript.Echo "Before:"
For Each objUser In group.Members
  WScript.Echo objUser.Name
next
group.Add "WinNT://"& DomainName &"/"& WScript.Arguments(2) &""
CheckError
 
sub CheckError
        if not err.number=0 then
        set ole = CreateObject("ole.err")
                WScript.Echo ole.oleError(err.Number)
                err.clear
        else
                WScript.Echo ""
                WScript.Echo "After:"
                For Each objUser In group.Members
                  WScript.Echo objUser.Name
                next
        end if
end sub