Dim oRS, oConnect, oCommand, strAdsPath, strCatVersionAD
 
Set oRS = CreateObject("ADODB.Recordset")
oRS.CursorLocation = 3
 
Set oConnect = CreateObject("ADODB.Connection")
 
oConnect.Provider="ADsDSOObject"
oConnect.Open "Active Directory Provider"
strAdsPath = "LDAP://xxxxx"
 
Set oCommand = CreateObject("ADODB.Command")
oCommand.ActiveConnection = oConnect
oCommand.CommandText = "<" & strAdsPath & ">;(&(objectCategory=*)(" & _
  "objectClass=yyyy));" & "xxxx;subTree"
oRS.Open oCommand