Discussion :

[le Daoud]

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

[linux]

ca repond pas directement
http://www.developpez.net/forums/viewtopic.php?t=460541

une fois que tu as installé le soft
tu pourras récuperer les adresses et filtres que le soft utilise pour accèder
a une personne, mêmes adresses qu'il faudra mettre dans les filtres et & de ton code .net

[le Daoud]

Je te remercie .
J'avais parcouru ton poste lors de ma recherche précédent la composition de mon message. Cependant je ne crois pas que cela vienne du filtre, car par exemple celui basé sur l'email fonctionne, la recherche me retournant le résultat attendu.
Enfin, je vais tout de même regarder ce soft

[linux]

je n'ai plus les objets exactement en tête mais
si dans ton

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& ")"

le user pwd correspond au user auquel tu veux ramener l'email
cherche directement
dans les properties de ton DirectoryEntry Ldap

Code :

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

Ldap.Properties("email").ToString()

sans faire de directorySearcher

[le Daoud]

Code :

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

1
2
Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://xxx.xxx:389", "uid=" & user & ",ou=people,o=xxxx", pwd, AuthenticationTypes.FastBind)
Dim tmp As String = Ldap.Properties("mail").Value

Pas de valeur dans tmp. Ceci dit cela ne lève pas d'exception, ce qui est mieux

[linux]

Es-tu certain que l'attribut email est visible par une connection fastbind?

Suite à mon dernier post pour voir certains attributs, je devais me connecter avec un user avec des droits admin et a ce moment la seulement lire les attributs.

Sinon je ne pouvais lire que les attrbiuts publiques.

Pour voir cela dans softerra tu peux mettre des credentials spécifiques pour te connecter a LDAP tu pourra alors voir si tu es autoriser a voir ce champ ave cle user que tu entres.

[le Daoud]

Merci pour ton aide,

Ton soft m'a permis effectivement d'y voir plus clair.

Code :

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

1
2
 
Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://xxx.xxx:389/o=xxx", "uid=" & user & ",ou=people,o=xxx", pwd, AuthenticationTypes.FastBind)

ça marche