Active Directory/Search for a user: Difference between revisions
Content added Content deleted
(templates) |
|||
| Line 2: | Line 2: | ||
=={{header|VBScript}}== |
=={{header|VBScript}}== |
||
Make sure you [[Connect to Active Directory]] |
|||
Creating the normal connection to AD |
|||
Set objConn = CreateObject("ADODB.Connection") |
|||
Set objCmd = CreateObject("ADODB.Command") |
|||
objConn.Provider = "ADsDSOObject" |
|||
objConn.Open |
|||
The search string and execution of the string |
The search string and execution of the string |
||
Revision as of 12:36, 10 August 2008
You are encouraged to solve this task according to the task description, using any language you may know.
VBScript
Make sure you Connect to Active Directory
The search string and execution of the string
strUsername = "TestUser"
strQuery = "<LDAP://dc=skycityauckland,dc=sceg,dc=com>;"_
& "(&(objectclass=*)(samaccountname=" & strUsername & "));distinguishedname;subtree"
objCmd.ActiveConnection = objConn
objCmd.Properties("Page Size")=100
objCmd.CommandText = strQuery
Set objRS = objCmd.Execute
Doing something with a single result (this will output the returned users full DN)
If objRS.RecordCount = 1 Then
WScript.Echo objRS.Fields("DistinguishedName")
End If
Doing something with multiple results (this will output each returned users full DN)
If objRS.RecordCount > 0 Then
For Each objUser in ObjRS
WScript.Echo objRS.Fields("DistinguishedName")
Next
End If