Discussion :

[teteve45]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...
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...

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[teteve45]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  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.

[teteve45]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...
Merci quand même à vous deux