Bonjour,

Je rencontre des problèmes avec une authentification ldap.

Ce code fonctionne. Il me permet d'effectuer des recherches.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://mon.serveur:389/ou=xxx,o=xxx")
Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
searcher.Filter = "(email=" & email& ")"
Dim mySearchResult As SearchResult = searcher.FindOne()
Celui ne fonctionne pas, pour l'authentification :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://mon.serveur:389/ou=people,o=xxx", user, pwd, AuthenticationTypes.FastBind)
Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
searcher.Filter = "(email=" & email& ")"
Dim mySearchResult As SearchResult = searcher.FindOne()
Le message est le suivant :"Une syntaxe DN non valide a été spécifiée"

J'ai essayé d'autres possibilités comme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
DirectoryEntry("LDAP://mon.serveur:389", "uid=" & user & "ou=people,o=xxx", pwd, AuthenticationTypes.FastBind)
Cela leve une exception si l'authentification est éronnée avec comme message "Échec d'ouverture de session" ce qui est ce que je souhaite, mais si le user et le mot de passe sont bons j'ai aussi une exception sur le FindOne("cet objet n'existe pas...").


Une idée ?



Merci