Connexion ADAM, requête LDAP

Bonjour à tous,

Je bloque sur un petit script "à la c***" :)
Mon objectif : récupérer la valeur de l'attribut "diag-libelleComplet" pour une OU (écrite temporairement en dur pour les tests).
Le contexte :
l'annuaire ADAM :
host : servo.pric.priv
port : 50001
BindDN : uid=lecteur,ou=compteservice,o=anap1
Password : mdpAdam
Toutes les structures (qui correspondent à des OU)se trouvent sous la branche OU=structure,O=anap1

Voici mon script actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Const ADS_SCOPE_SUBTREE = 2 Const STRDOMAIN = "dc=pric,dc=priv" Const OUPATH = "ou=structure" Dim struc, strUsername, strPassword Dim objConnection, objCommand, objRecordSet   struc = "JCA" strUsername = "uid=lecteur,ou=compteservice,o=anap1" strPassword = "mdpAdam"   Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "ADsDSOObject, strUsername, strPassword, 1"   Set objCommand = CreateObject("ADODB.Command") Set objCommand.ActiveConnection = objConnection objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = "SELECT diag-libelleComplet FROM 'LDAP://o=anap1,dc=pric,dc=priv' WHERE Name=struc " Set objRecordSet = objCommand.Execute If objRecordSet.RecordCount = 0 Then MsgBox "Any result" Else Msgbox "Some result" End If

---

Bien évidemment, ça ne fonctionne pas... :cry::cry:
J'ai le message d'erreur : "Le tableau n'existe pas" à la ligne "Set objRecordSet = objCommand.Execute"
Si quelqu'un a une idée...

ps : il me semble avoir lu dans un forum que pour un annuaire ADAM, les attributs étant modifiables, on ne pouvait retourner que certains attributs "par défaut". Mais impossible de remettre la main sur ce post, ni de trouver confirmation ailleurs...

salut,..

ben déjà pour utiliser la valeur d'une variable chaine et pas son nom .. il faut "sortir" cette variable des "... de plus il te faut peu-être des guillemets (simples : ') autour de cette valeur :

Code:

---

objCommand.CommandText = "SELECT diag-libelleComplet FROM 'LDAP://o=anap1,dc=pric,dc=priv' WHERE Name='" & struc & "'"

---

Bonjour,

Merci pour la réponse. Malheureusement, mon erreur de syntaxe n'est qu'une coquille. Pour mes tests, je mets en dur dans ma requête "[...] Name = 'JCA' "
En recopiant, j'ai fait un mix raté :p J'ai même modifiée la requête pour être sûr que l'erreur ne vienne pas de là.
Vu que le port qu'on m'a indiqué (50001) est le port du LDAP-SSL, j'ai modifié un peu le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Const ADS_USE_SSL = 2 Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Properties("User ID") = _ "uid=lecteur,ou=compteservice,o=anap1" objConnection.Properties("Password") = "mdpAdam" objConnection.Properties("Encrypt Password") = True objConnection.Properties("ADSI Flag") = ADS_USE_SSL objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = "SELECT name FROM 'ldap://servo.pric.priv:50001/OU=structure,O=ANAP1' WHERE objectClass='organizationalUnit'" Set objRecordSet = objCommand.Execute   If objRecordSet.RecordCount = 0 Then MsgBox "Any result" Else Msgbox "Some result" End If

---

La requête LDAP est "à priori" bonne, vu qu'elle me renvoie ce que je veux dans un explorateur LDAP. Par contre, quand j'exécute le code dans le Visual Basic Editor d'office, dans l'explorateur de variables, il m'indique une erreur pour objconnexion :
"Le fournisseur ne prend pas en charge cette propriété." (screen de l'erreur : http://www.teteve.fr/erreurVB.jpg).
Et j'ai toujours l'erreur sur objRecordSet : "Erreur d'exécution '-2147217865 (80040e37)' : Le tableau n'existe pas."

Si ça parle à quelqu'un...:roll:

Code:

---

objCommand.CommandText = "SELECT name FROM 'ldap://servo.pric.priv:50001/OU=structure,O=ANAP1' WHERE objectClass='organizationalUnit'"

---

je ne suis pas des plus compétant sur ce type de requête, mais ce qui me gène se sont les apostrophes quelle contient.
Si structure et ANAP1 sont des variables, dans ta requête, tu fournis le nom des variables, pas leurs contenues.

Merci de vos réponses, même si elles sont un peu "hors-sujet" par rapport à mon souci ;)
Dans ces scripts de test, je n'ai mis volontairement aucune variable, afin de pouvoir tester "directement". (sauf erreur dans le 1er code, mais comme expliqué, c'était une erreur de recopie) En plus j'avais marqué les infos dans le 1er post :p
J'ai trouvé la solution, même si je ne sais pas exactement le pourquoi du comment.
Voici le code fonctionnel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Properties("User ID") = "uid=lecteur,ou=compteservice,o=anap1" objConnection.Properties("Password") = "mdpAdam" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = "SELECT Name FROM 'ldap://servo.pric.priv:50001/OU=structure,O=ANAP1' WHERE objectClass='organizationalUnit' " Set objRecordSet = objCommand.Execute   If objRecordSet.RecordCount = 0 Then MsgBox "Any result" Else Msgbox "Some result" End If

---

Ce qui bloquait apparemment, c'est de spécifier le protocole SSL _ET_ le port 50001. Ce n'était qu'une histoire de paramètres bons/mauvais/inutiles dans ma connexion. Soit... :mur:
Merci quand même à vous deux :)