L'exploration d'une base Openldap en vbscript

Bonjour,

Je souhaite exploiter une base openldap via vbscript,

c'esta dire:

- apliquer un filtre ldap, pour reduire la popultaion
- Naviger parmi user resulatnt du filtre pour rapatrier certain attribut, dont ceux "multi-value".

pour l'instant en tâtonnant j'arrive a lister les ou :

mais je souhaiterais renter dans l'une d'entre elle ("people") pour bosser sur les user :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sUser = "cpteadmin" sDN = "cn=" & sUser & ",dc=mondomaine,dc=fr" sRoot = "LDAP://monserveur/dc=mondomaine,dc=fr"   Dim oDS: Set oDS = GetObject("LDAP:") Dim oAuth: Set oAuth = oDS.OpenDSObject(sRoot, sDN, "monpass", 0)   For Each obj In oAuth WScript.Echo obj.name Next

---

comment faire ?

en vous remerciant,

Bonsoir,

j'ai finalement trouvé comme un grand :
ci dessous le code ultime pour explorer une base OPEN LDAP (exploration des ou,filtre ldap, lecture des simple value, et des multivalues)


ATTENTION !
il s'agit d'un patchwork de code issue du net et un peu de codage personnel , du coup les variable n'ont pas forcement des noms représentatifs

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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Set dso = GetObject("LDAP:") 'for accessing via LDAP Set ado = CreateObject("ADODB.Connection") 'creation of the ADO connection ado.Provider = "ADSDSOObject" ado.Properties("User ID") = "cn=comptadmin,dc=mondomaine,dc=fr" ado.Properties("Password") = "motdepasse" ado.Properties("Encrypt Password") = False ado.Open "EX55-Anon-Search" 'this is a arbitrarily chosen name 'replace the own server name here filterStr = "(&(objectClass=inetOrgPerson))" Set cmo = CreateObject("ADODB.Command") 'Creation of the ADO connection cmo.ActiveConnection = ado cmo.CommandText = "<LDAP://monserveur/ou=people,dc=mondomaine,dc=fr>;"& filterStr & "sn,givenName;subtree" Set objRS = cmo.Execute 'processing the search   Do Until objRS.EOF nom=champ("sn") prenom=champ("givenName")     wscript.echo nom+" "+prenom objRS.MoveNext Loop   Function champ(strchmp) result = "" element="" If Not (IsNull(objRS.Fields(strchmp).Value)) then if (IsArray(objRS.Fields(strchmp).Value)) then For each element in objRS.Fields(strchmp).Value if (result <> "") then result = result+" | "+element else result=element end if Next else result=objRS.Fields(strchmp).Value end if End If champ=result End Function

---