Discussion :

[IdrilElendil]

Bonjour,
Je dois faire une application nécessitant de se connecter au serveur LDAP, d'authentifier si l'utilisateur qui essaie de se connecter fait partie de ce domaine et de faire une requête sur les attributs de ce compte utilisateur (par exemple prénom, nom, etc).

Je ne sais comment faire mais je sais que la référence pour LDAP est System.DirectoryServices.Protocols

Je suis incapable de faire une connexion et encore moins de faire une requête, une aide serait beaucoup appréciée. Si je n'ai pas été assez claire, dites-le moi.

Merci d'avance,
Idril Elendil

[BCmDev]

Ce lien t'aidera sûrement.

[IdrilElendil]

Merci beaucoup,
je vais regarder ce site attentivement.

Merci encore,
Idril Elendil

[IdrilElendil]

J'ai essayé de faire comme dans les informations du lien, mais j'ai une erreur.
Ce que j'essaie est:

Code :

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

1
2
Dim utilisateur As DirectoryEntry = New DirectoryEntry("LDAP://006.sam.qc.ca", _
                   "User LDAP", "Pwd001", AuthenticationTypes.Secure)

Le message d'erreur est:

Le domaine spécifié n'existe pas ou n'a pas pu être contacté.

Une idée pour quoi ça fait ça comme erreur?

Merci d'avance,
Idril Elendil

[Thomas Lebrun]

Tu est sur que 006.sam.qc.ca est le nom de ton controleur de domaine ?

[Luffy49]

tu peut tous aussi mettre l'adresse ip de ton serveur ldap ... pour savoir le nom de domaine tu fait la touche windows+pause et tu regarde la particule de ton pc

[IdrilElendil]

j'ai vraiment le bon nom de domaine, car je suis capable d'atteindre mon domaine. Je ne sais vraiment pas pourquoi alors...

Idril Elendil

[Thomas Lebrun]

Attention, nom de domaineest différent du nom du controleur de domaine....

[IdrilElendil]

comment est-ce que je peux vraiment confirmer le nom de mon controleur de domaine?

en réécrivant le chemin ldap://006.sam.qc.ca, et en passant le même nom d'utilisateur et le même mot de passe, j'ai le message suivant:

Erreur non spécifiée

et même:

Erreur inconnue (0x80005000)

Idril Elendil

[Thomas Lebrun]

006.sam.qc.ca, c'est le nom de ton domaine ou c'est le nom d'une machine ?

[IdrilElendil]

c'est le nom de mon serveur ldap

Idril Elendil

[Thomas Lebrun]

Alors c'es étrange, je ne comprends pas pourquoi tu as ces erreurs

[IdrilElendil]

étrangement, j'utilise le même nom de serveur ldap pour un script en VBScript et ça fonctionne...

à moins que je fais une/des instruction(s) qu'il ne faudrait pas ou bien que j'en oublie??

Idril Elendil

[Thomas Lebrun]

A tout hasard, dans le constructeur du DirectoryEntry, essaye de faire varier les valeurs de l'énumération AuthenticationTypes: il y en as bien une qui va marcher

[IdrilElendil]

le mode d'authentification qui fonctionne est:

AuthenticationTypes.ReadonlyServer

je suis ainsi capable d'obtenir les informations (propriétés) d'un utilisateur, ce que je voulais, donc avec le nom d'utilisateur et le mot de passe, je suis capable de me connecter à ce compte utilisateur, s'il existe!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim monDisplayName As String = Nothing
 
Dim monUser As DirectoryEntry = _
                    New DirectoryEntry("LDAP://006.sam.qc.ca", _
                    "NomUtilisateur", "MotPasse", _
                    AuthenticationTypes.ReadonlyServer)
 
Dim rech As DirectorySearcher = New DirectorySearcher(monUser, _
                "(&(objectClass=user)(cn=NomUtilisateur))")
rech.PropertiesToLoad.Add("sAMAccountName")
rech.PropertiesToLoad.Add("displayName")
 
rech.CacheResults = True
Dim result As SearchResult = rech.FindOne()
monDisplayName = result.Properties("displayName").Item(0).ToString()
 
monUser.Close()

Merci beaucoup pour l'aide,
Idril Elendil

[IdrilElendil]

C'est étrange, je viens juste de me rendre compte que je n'ai pas besoin de faire de bind pour le serveur LDAP, ça doit être normal, non?

Idril Elendil