Discussion :

[markham]

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 :

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

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,

[markham]

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 :

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