NT 4.0 GroupsThe following script will accomplish this, but you must have ADSI installed on your system:

strGroupName = InputBox("Enter group name:")
Set objGroup = GetObject("WinNT://yourDomain/" & strGroupName)
For Each member In objGroup.Members
 MsgBox member.name
Next

Alternatively, you can replace 'yourDomain' with a member server or workstation machine name (for local groups).

  Is there a way to extract a users NT group membership using VB Script?