Connexion au LDAP et appel d'une requête

//Déclaration des variables

sDistinguishedName, sConnexionLDAP est une chaîne

sListeFils, sListeAttribut sont des chaînes

 

 

//Raz la configuration courant du LDAP

LDAPRAZ()

 

 

//Initialise la configuration du LDAP

LDAPSession.Hôte                          = "192.168.1.39"

LDAPSession.Port                           = 389

LDAPSession.Version                     = 3

LDAPSession.Utilisateur                = ""

LDAPSession.MotDePasse             = ""

LDAPSession.Option                      = auNegotiate

 

 

sDistinguishedName       = "OU=OU-Utilisateurs,OU=OU-bdi, DC=bdi,DC=principal"

sConnexionLDAP           = "ConnectionLdap"

 

 

//Connexion au LDAP

SI PAS LDAPConnecte(sConnexionLDAP) ALORS

     Erreur(ErreurInfo(errComplet))

     RETOUR

FIN

 

 

//On récupère le fils des éléments et des attributs

sListeFils         = LDAPListeFils(sConnexionLDAP,sDistinguishedName)

sListeAttribut = LDAPListeAttribut(sConnexionLDAP,sDistinguishedName)

 

 

//On parcours chaque fils et on affiche dans le trace la liste des attributs

POUR TOUT CHAÎNE sFils DE sListeFils SEPAREE PAR RC

     Trace("//** Debut utilisateur")

 

     POUR TOUT CHAÎNE sAttribut DE sListeAttribut SEPAREE PAR RC

          Trace(UTF8VersChaîne(LDAPValeur(sConnexionLDAP,sFils,UTF8VersChaîne(sAttribut))))

     FIN

 

     Trace("//** Fin utilisateur")

FIN

 

 

//Déconnexion du LDAP

LDAPDéconnecte(sConnexionLDAP)

Info("traitement ok")