the Active Directory Expert

Add User Remote Local Group

The following script adds a user to a remote local group. Make sure you change strDomain to match your domain name.

Syntax cscript scriptname.vbs [computer] [group] [user]

On Error Resume Next

If WScript.Arguments.Count = 0 Then

 WScript.Echo("Syntax: addUserLocalGroup.vbs <Computer> <Group> <User>")

Else

 strComputer = WScript.Arguments(0)
 strGroup = Wscript.Arguments(1)
 strUser = Wscript.Arguments(2)

 strDomain = "DomainName"

 Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup)
 Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser)

 objGroup.Add(objUser.ADsPath)

 Select Case Err.Number
 
  Case "-2147023518"
   WScript.Echo(strComputer & "," & strgroup &_
         "," & strUser & "," & "Already a Member")
  Case "0"
   WScript.Echo(strComputer & "," & strgroup &_
         "," & strUser & "," & "Successfully Added")
  Case "424"
   WScript.Echo(strComputer & "," & strgroup &_
         "," & strUser & "," &_
         "Object Not Found (Check Server/Group/User Names)")
  Case Else
   WScript.Echo(strComputer & "," & strgroup &_
         "," & strUser & "," & Err.Number & "," & Err.Description)
 End Select

End If