1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Public Class ADConnection
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
End Class
|
Partager