' Search for a User Account in Active Directory
' supported on all 32-Bit-Windows platforms (9x - 2003)
' generated by SystemScripter 6.0 http://www.scriptinternals.de
 
strUserName = "TWeltner"
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
 
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
 
objCommand.CommandText = _
    "<LDAP://dc=scriptinternals,dc=com>;(&(objectCategory=User)" & _
         "(samAccountName=" & strUserName & "));samAccountName;subtree"
 
Set objRecordSet = objCommand.Execute
 
If objRecordSet.RecordCount = 0 Then
    WScript.Echo "sAMAccountName: " & strUserName & " does not exist."
Else
    WScript.Echo strUserName & " exists."
End If
 
objConnection.Close