LISTING 3: Code That Inefficiently Searches an NT 4.0 Domain

Option Explicit
WScript.Echo Time
Dim blnFound, objDomain, objUser, strDomainName, strUserName
blnFound = False
strDomainName = "acme"
strUserName = "johndoe"

Set objDomain = GetObject("WinNT://" & strDomainName)
objDomain.Filter = Array("User")
For Each objUser In objDomain
	If LCase(objUser.Name) = LCase(strUserName) Then
		blnFound = True
		Exit For
	End If
Next

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