'###################################################
'#### Shows all groups a user of an NT 4 domain ####
'#### belongs to                                ####
'####                                           ####
'#### (c) Dirk Pelzer 1999                      ####
'###################################################

Option Explicit

Dim oDomain
Dim oArgs
Dim oGroup
Dim oUser
Dim strUsername
Dim strDomain

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

Set oArgs = Wscript.Arguments
If oArgs.Count <> 2 Then 
   wscript.echo "Error: Two arguments necessary."
   wscript.echo "Syntax: cscript ADSIText.vbs <domain> <username>"
   wscript.quit(1)
End If

'On Error Resume Next

strDomain = oArgs(0)
strUsername = oArgs(1)

'###################################
'### Determine group memberships ###
'###################################

Set oUser = GetObject("WinNT://" & strDomain & "/" & strUsername)

wscript.echo oUser.FullName & " (" & strUsername & ") is memeber of:" & vbCRLF

For Each oGroup In oUser.Groups
   wscript.echo oGroup.Name
Next
 
Set oUser = Nothing