'#############################################################
'#### Shows if a user account exists in an NT 4.0  domain ####
'####                                                     ####
'#### (c) Dirk Pelzer 1999                                ####
'#############################################################

Option Explicit

Dim oDomain
Dim oArgs
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)

'########################################################################
'### Using GetObject figure out if users exists in the given domain   ###
'### and return the user's fullname. Return error code if user does   ###
'### not exists.                                                      ###
'########################################################################

Set oDomain = GetObject("WinNT://" & strDomain & "/" & strUsername)
If Err.Number = 0 Then
   Wscript.Echo oDomain.FullName
Else 
   wscript.echo "Error: User not found. Error code: " & Hex(err.number)
End if