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