[RESOLU] l'exploration d'une base Openldap en vbscript

l'exploration d'une base Openldap en vbscript [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 22-09-2015 à 21:02:39    

Bonjour,
 
Je souhaite exploiter une base openldap via vbscript,
 
c'est à dire:
 
- apliquer un filtre ldap, pour reduire la popultaion
- Naviger parmi user resultant du filtre pour rapatrier certain attribut, dont ceux "multi-value".
 
avez des ressource pour cela
 
en vous remerciant !


Message édité par exmachina le 23-09-2015 à 20:56:42
Reply

Marsh Posté le 22-09-2015 à 21:02:39   

Reply

Marsh Posté le 23-09-2015 à 20:56:00    

Bonsoir,  
 
j'ai finalement trouvé comme un grand :  
ci dessous le code ultime pour explorer une base OPEN LDAP (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 variables n'ont pas forcement des noms représentatifs
 
 
 

Code :
  1. Set dso = GetObject("LDAP:" ) 'for accessing via LDAP
  2. Set ado = CreateObject("ADODB.Connection" ) 'creation of the ADO connection
  3. ado.Provider = "ADSDSOObject"
  4. ado.Properties("User ID" ) = "cn=comptadmin,dc=mondomaine,dc=fr"
  5. ado.Properties("Password" ) = "motdepasse"
  6. ado.Properties("Encrypt Password" ) = False
  7. ado.Open "EX55-Anon-Search" 'this is a arbitrarily chosen name
  8. 'replace the own server name here
  9. filterStr = "(&(objectClass=inetOrgPerson))"
  10. Set cmo = CreateObject("ADODB.Command" ) 'Creation of the ADO connection
  11. cmo.ActiveConnection = ado
  12. cmo.CommandText = "<LDAP://monserveur/ou=people,dc=mondomaine,dc=fr>;"& filterStr & "sn,givenName;subtree"
  13. Set objRS = cmo.Execute 'processing the search
  15. Do Until objRS.EOF
  16. nom=champ("sn" )
  17. prenom=champ("givenName" )
  20. wscript.echo nom+" "+prenom
  21.   objRS.MoveNext
  22. Loop
  24. Function champ(strchmp)
  25. result = ""
  26. element=""
  27. If Not (IsNull(objRS.Fields(strchmp).Value)) then
  28. if (IsArray(objRS.Fields(strchmp).Value)) then
  29. For each element in objRS.Fields(strchmp).Value
  30. if (result <> "" ) then
  31. result = result+" | "+element
  32. else
  33. result=element
  34. end if
  35. Next
  36. else
  37. result=objRS.Fields(strchmp).Value
  38. end if
  39. End If
  40. champ=result
  41. End Function


Message édité par exmachina le 23-09-2015 à 21:01:02
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed