Bonjour
 
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

J'ai trouvé mon problème
 
Eu niveau de mon OU j'ai son nom qui contient le caractère apostrophe
 
donc il ne le reconnait pas
 
comment faire alors?

Perso pour ce genre de chose, j'utiliserai un CSVde ou un dsquery mais bon pk.
 
Pour le caractère ' il suffit de l'échapper

cad "l'échapper"

j'ai trouvé il faut mettre deux quotes ''
 
Merci à toi