je cherche à afficher le champs company pour des utilisateurs présents dans un OU
On Error Resume Next
Const ADS_SCOPE_SUBTREE= 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT samAccountName,company FROM " & _
"'LDAP://OU=Achat,OU=Paris,OU=75,DC=mondomaine,DC=fr' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("sAMAccountName").Value
Wscript.Echo objRecordSet.Fields("company").Value
objRecordSet.MoveNext
Loop
Si j'exécute ce code, celà ne fonctionne pas ( le script reste actif sans renvoyer de valeur)
Alors que j'ai bien des users dans l'OU achat
Alors que si je retire mon Ou Achat du select soit: "'LDAP://OU=Paris,OU=75,DC=mondomaine,DC=fr' WHERE objectCategory='user'"
La requete fonctionne bien mais me renvoit les resultat de l'OU PARIS et de toute les sous OU enfants
comment je peut faire pour récupérer uniquement les infos pour l' OU Achat
Merci
