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