Récupérer l'adresse mail après authentification
Bonjour
Je travaille depuis plusieurs année avec ASP classic qui convient bien à mes besoins.
Et j'utilise un script (dont je ne connais pas précisément le fonctionnement) me permettant de vérifier qu'un utilisateur s'identifie avec le bon id/pwd.
Code:
1 2 3 4 5 6 7 8 9 10 11
| LDAP = "ldap.monserveur.fr"
LDAPBASE = "ou=xxxxxxxx,ou=yyyyyyy,o=zzz,c=fr"
BINDDN = "uid=" & id & ",ou=xxxxxx,ou=yyyyyy,ou=zzzzzzzz,o=tttt,c=fr"
BINDPASS = pwd
' Connexion au LDAP
on error resume next
sRoot = "LDAP://" & LDAP & "/" & LDAPBASE
Dim oDS: Set oDS = GetObject("LDAP:")
Dim oAuth: Set oAuth = oDS.OpenDSObject(sRoot, BINDDN, BINDPASS, &H0200)
if err.number=0 then ouv=true |
Ça marche parfaitement bien. Je récupère un booléen dans ouv qui me dit si l'utilisateur a mis le bon id/pwd.
MAIS
J'ai besoin aujourd'hui de récupérer (après cette authentification), l'adresse mail de cette personne.
Existe t-il une fonction qui interroge l'identifiant dans le LDAP et qui retourne l'adresse mail ?
J'ai l'impression en lisant certains forums que OpenDSObject est en capacité de retourner cet attribut, mais ... je ne trouve pas.
Merci de répondre à cette bouteille à la mer...