Check if a user exists in AD.

[JimHolland]

I currently use a script to create and delete user account in AD - using a txt file as input. But what I would like to do is check first to see if a user account exists first -and to flag it if it does.

Could anyone point me any code which checks to see if a user account already exists?

Cheers.

 

[peterwestling]

This one looks if the SAMAccountname "PeterW" is in use in the "Users" OU in the domain "domain".
If it doesnt find it it will tell you that and if it finds it then you'll see the dn path and so on.

//Peter

Set objConnection = CreateObject("ADODB.Connection&quot
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command&quot
objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
&quot;<GC://ou=Users,dc=domain,dc=com>;&quot; & _
&quot;(&(objectCategory=person)(objectClass=user)&quot; & _
&quot;(sAMAccountName=PeterW));&quot; & _
&quot;sAMAccountName, distinguishedName;subtree&quot;

Set objRecordSet = objCommand.Execute

If objRecordSet.RecordCount = 0 Then
Wscript.Echo &quot;The sAMAccountName is not in use.&quot;
Else
While Not objRecordset.EOF
Wscript.Echo &quot;sAMAccountName = &quot; & _
objRecordset.Fields(&quot;sAMAccountName&quot
Wscript.Echo &quot;distinguishedName = &quot; & _
objRecordset.Fields(&quot;distinguishedName&quot
objRecordset.MoveNext
Wend
End If

objConnection.Close