Re: LDAP Query against Active Directory
Hey Asif, this scripty will take care of your whole issue:
strDomain = "LDAP://dc=xxx,dc=xxx"
strUser = "enter the user name here"
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
strFilter = "(&(objectCategory=person)(sAMAccountName=" & strUser & "))"
strAttributes = "DistinguishedName"
strQuery = strDomain & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
Set objRecordSet = objCommand.Execute
Do Until objRecordSet.EOF
strDN = objRecordSet.Fields("DistinguishedName").Value
Set objUser = GetObject("LDAP://" & strDN)
For Each strGroup In objUser.MemberOf
Set objGroup = GetObject("LDAP://" & strGroup)
WScript.Echo objGroup.sAMAccountName
Next
objRecordSet.MoveNext
Loop