'########################################################
'### Returns a list of all members of an NT 4.0 group ###
'###                                                  ###
'### (c) Dirk Pelzer 1999                             ###
'########################################################

Option Explicit

Dim oGroup
Dim oArgs
Dim strMember
Dim strGroupList
Dim strDomain
Dim strGroup

'##########################
'### Retrieve arguments ###
'##########################

Set oArgs = Wscript.Arguments

If oArgs.Count <> 2 Then 
   wscript.echo "Error: Two arguments necessary."
   wscript.echo "Syntax: cscript GetGroupMembers.vbs <domain> <groupname>"
   wscript.quit(1)
End If

strDomain = oArgs(0)
strGroup = oArgs(1)

On Error Resume Next

'#####################################################################
'### Using GetObjet figure out which members the given groups has. ###
'#####################################################################

Set oGroup = GetObject("WinNT://" & strDomain & "/" & strGroup)

If Err.Number = 0 then
   Set strGroupList = oGroup.members
      For Each strMember In strGroupList
         wscript.echo strMember.Name 
      Next
   Else
     wscript.echo "Error code: " & Hex(err.Number)
End If