Bonsoir à tous,

Je suis le tuto permettant de faire des connexions à l'AD afin de récupérer des informations sur l'utilisateur connecté.

Pour se faire je suis le tuto de webman se trouvant sur developpez.

La partie 3.1 traite de la récupération de la valeur d'un paramètre avec ce code :

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
19
20
21
22
23
24
25
26
27
28
'Récupération de l'attribut 'displayName' :
    Public Function getDisplayName(ByVal monCheminLdapUser As String, _
	                               ByVal monUsername As String, _
	                               ByVal monpassword As String) As String
 
		' Exemple de chemin LDAP : "CN=User 1,CN=Users,DC=monDomaine,DC=local"
 
        Dim monDisplayName As String = Nothing
 
        Try
            ' Connexion à l'objet compte utilisateur souhaité
            Dim monUser As DirectoryEntry = New DirectoryEntry("LDAP://" & _
			               monCheminLdapUser, monUsername, monpassword)
 
            ' Récupération de la valeur de la propriété
            monDisplayName = monUser.Properties("displayName").Value.ToString
            ' Fermeture de la "connexion"
            monUser.Close()
 
        Catch ex As Exception
 
            monDisplayName = ex.Message
 
        End Try
 
        Return monDisplayName
 
    End Function
J'ai donc essayé en rentrant le chemin LDAP adapté par rapport à l'exemple.
Exemple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
CN=User 1,CN=Users,DC=monDomaine,DC=local
Chaine adaptée pour mes besoins :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
CN=wauthy,CN=Users,DC=cpmoloc,DC=dom
Mais cela ne fonctionne pas, j'ai une erreur disant :
Cet objet ne se trouve pas sur le serveur
pourtant j'ai revérifié avec la partie 2.1, où on peut lire :
Remarque : un nom unique LDAP est un dérivé de la convention de nommage X500. Voilà un exemple de nom unique du compte utilisateur Administrateur du domaine Developpez.local : CN=Administrateur,CN=Users,DC=Developpez,DC=local. Attention cependant à ne pas confondre l'identifiant unique qui est attribué à un objet par Active Directory : le GUID (Globally Unique Identifier).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim monEntry As New DirectoryEntry("LDAP://" & cheminLdapConteneur, monUsername, monPassword, AuthenticationTypes.Secure)
Je ne comprend pas se que je fais de mal...