Group Membership Script

Reveals the members of a group.

Dim objArguments, strDomainGrp
Set objArguments = Wscript.Arguments
If WScript.Arguments.Count = 0 then Wscript.Quit
strDomainGrp=objArguments(0)
On Error Resume Next
Set objGroup = GetObject("LDAP://cn=" & strDomainGrp & ",ou=distribution lists,dc=company,dc=com")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")
For Each strMember in arrMemberOf
WScript.echo """" & strDomainGrp & """;""" & strMember & """"
Next