Faster way to verify if a user account exists in AD?

[cerruti1881]

I need to verify if a user account entered exists in AD.
One way is to go through the entire AD to find a match, which may be slow if there are 100 thousands of objects.
Is there a faster of doing this? If yes, please share your idea and codes.

 

[Geates]

On what data are you verifying?

-Geates

http://raqxtr.sstar.com/caspdoc/html/vbscript_language_reference.htm

 

[Geates]

assuming your using the username.

Const ADS_SCOPE_SUBTREE = 2
strUsername = "aUsername"
strDomain = "dc=domain,dc=com"

set objConnection = CreateObject("ADODB.Connection")
set objCommand = CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"
objConnection.Open("Active Directory Provider")
objCommand.ActiveConnection = objConnection


objCommand.CommandText = "SELECT * FROM 'LDAP://" & strDomain & "' WHERE samAccountName = '" & strUsername & "'"
objCommand.Properties("SearchScope") = ADS_SCOPE_SUBTREE

set objRecordSet = objCommand.Execute

if (objRecordSet.RecordCount = 0) then
	msgbox strUsername & " was not found"
else
	msgbox strUsername & " was found"
end if

-Geates

http://raqxtr.sstar.com/caspdoc/html/vbscript_language_reference.htm