Voici ici une petite astuce vous permettant de tester si un usager existe sur votre serveur sous Active Directory. Il suffit dans votre programme d'intégré la fonction suivante :
CODE :
Public Shared Function UserExists(ByVal username As String) As Boolean
Dim de As DirectoryEntry = GetDirectoryEntry()
Dim searcher As New DirectorySearcher()
searcher.SearchRoot = de
searcher.Filter = String.format("(&(objectClass=user) (cn={0}))", username)
Dim results As SearchResultCollection = searcher.FindAll()
Return results.Count > 0
End Function
Exemple d'utilisation :
Dim bUserExists as Boolean = UserExists("Dave")
Remarque :
Ajouter la directive :
Imports System.DirectoryServices
{mos_fb_discuss:no_discuss}
Ajouter cette page à votre Digg-Like préféré
Marquer favoris
Bookmark
Email This
Hits: 534
Commentaires (0)
Ecrivez un commentaire
