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 :
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 :
CN=User 1,CN=Users,DC=monDomaine,DC=local
Chaine adaptée pour mes besoins :
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).
Dim monEntry As New DirectoryEntry("LDAP://" & cheminLdapConteneur, monUsername, monPassword, AuthenticationTypes.Secure)
Je ne comprend pas se que je fais de mal...
Partager