ADSI searching in VBS

[Hokey]

Is there a way to search/query the AD for a username (or list of usernames) that match search criteria (phone number, description, etc) in VBS/ADSI?

Thanks

 

[TheOtherKiwi]

Yep, sure can try username...other fields...?

' Create WSH objects and populate with data from the Domain/AD
set wshNetwork = WScript.CreateObject("WScript.Network&quot
set wshShell = WScript.CreateObject("WScript.Shell&quot

' Wait for up to 30 seconds for the user-specific data to be located and loaded from Domain/AD
HurryUp = Timer + 30
Do
Wscript.Sleep 100 ' Check every 100mS
Loop until wshNetwork.username <> &quot;&quot; or HurryUp < Timer
If wshNetwork.username=&quot;&quot; then ProblemGettingDomainData

' Set some variables
User = wshNetwork.username
Domain = wshNetwork.userdomain
Computer = wshNetwork.computername

' Determine the users Domain/AD Group membership
adspath=&quot;WinNT://&quot; & domain & &quot;/&quot; & user

' Create an object and populate it with user account properties from the Domain/AD
set adsobj = getobject(adspath)