Dim oRS, oConnect, oCommand, strAdsPath, strCatVersionAD
 
Set oRS = CreateObject("ADODB.Recordset")
Set oConnect = CreateObject("ADODB.Connection")
oConnect.Provider = "ADsDSOObject"
oConnect.Open "Active Directory Provider"
strAdsPath = "LDAP://xxx.xxx.xxx.net/ou=yyyyyy, ou=zzzz,dc=www,dc=ssssss,dc=net"
 
 
Set oCommand = CreateObject("ADODB.Command")
oCommand.Properties("Page Size") = -1 
oCommand.ActiveConnection = oConnect
 
oCommand.CommandText = "<" & strAdsPath & ">;(&(objectCategory=*)(" & _
  "objectClass=computer));" & "siemens-CatVersion;subTree"
 
oRS.Open oCommand