Bonjour,

j'aurai besoin de vos lumières concernant un code pour interroger un LDAP à partir de VB6.
Actuellement l'application sur laquelle je travaille interroge le LDAP avec comme donnée d'entrée le login de l'utilisateur (IdUsr) de la façon suivante :


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
25
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
 
objConnection.Properties("User ID") = "cn=AAA,ou=programs,o=XXX"
objConnection.Properties("Password") = "xxxx"
objConnection.Open = "Active Directory Provider"
objCommand.ActiveConnection = objConnection
 
ArgReq = "(uid=" & IdUsr & ")"
 
strBase = "<LDAP://annuaire.yyy.com/ou=users,o=XXX>"
 
StrFilter = "(&(objectclass=person)" & ArgReq & ")"
 
StrAttributes = "sn,givenname,ou,l,mail,telephonenumber,employeenumber,buildingname,floor,roomnumber,postOfficeBox,company,sitecode,hierarchy,idcompany,securidnumber,employeetype,budgetingcenter,uid,adminsitecode,mobile,facsimileTelephoneNumber"
 
strQuery = strBase & ";" & StrFilter & ";" & StrAttributes & ";subtree"
 
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 500
objCommand.Properties("Timeout") = 60
objCommand.Properties("Cache Results") = False
 
Set oRecordset = objCommand.Execute

Pourriez-vous me dire comment faire pour ramener TOUS les attributs du user et pas seulement les 22 précédemment listés.

Autres questions très importantes :
1- que dois-je mettre comme code pour interroger le LDAP non plus à partir d'un login utilisateur mais à partir de l'identifiant d'un groupe ou le nom du groupe
2- Pourriez-vous aussi me dire quels sont les attributs à demander ...

Merci.