the Active Directory Expert

Query Remote Group Membership

The following script will query group membership of a specified group on a specified computer.

On Error Resume Next

strRemoteComputer=WScript.Arguments(0)
strLocalGroup=WScript.Arguments(1)

‘[Functions] ****************************************

Function returnGroupMembership(strComputer, strGroup)
 
 Dim strOutput
        strOutput = strComputer

 Dim strOutputLength
     strOutputLength = len(strOutput)
 
 Set objGroup = GetObject(”WinNT://” & strComputer &_
     “/” & strGroup)

  For each oMember in objGroup.Members

   strOutput = strOutput & “,” &_
        oMember.Name

  Next
returnGroupMembership = strOutput
End Function

‘****************************************************

WScript.Echo(returnGroupMembership(strRemotecomputer, strLocalGroup))

 Select Case Err.Number
  Case “0″
   WScript.Sleep

  Case “424″
   WScript.Echo(”Error: Connecting” &_
         ” to Remote Computer”)
  Case Else
   WScript.Echo(”Error: Connecting” &_
         ” to Remote Computer”)
 End Select