LISTING 4: Code to Efficiently Search an NT 4.0 Domain

Option Explicit
WScript.Echo Time
Dim blnFound, objUser, strDomainName, strUserName

Const USERNAME_NOT_FOUND = &h800708AD

blnFound = False

strDomainName = "acme"
strUserName = "johndoe"

On Error Resume Next
Set objUser = GetObject("WinNT://" & strDomainName _
	& "/" & strUserName & ",User")
If Err.Number = 0 Then
	blnFound = True
ElseIf Err.Number = USERNAME_NOT_FOUND Then
	blnFound = False
Else
	WScript.Echo CStr(Hex(Err.Number)) & ": " & Err.Description
	WScript.Quit
End If

WScript.Echo strUserName & ": " & blnFound
WScript.Echo Time