VB.NET et Active Directory : récupérer les utilisateurs actifs
Bonjour,
Je voudrais récupérer la liste des utilisateurs actifs de l'Active Directory.
J'ai utilisé ce code pour charger la liste des users dans un combobox,
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Dim Ldap As New System.DirectoryServices.DirectoryEntry("LDAP://NomServeurAD", "UserName", "Password")
Dim searcher As System.DirectoryServices.DirectorySearcher = New System.DirectoryServices.DirectorySearcher(Ldap)
searcher.Filter = "(objectClass=user)"
Dim DirEntry As System.DirectoryServices.DirectoryEntry
For Each result As System.DirectoryServices.SearchResult In searcher.FindAll
DirEntry = result.GetDirectoryEntry
Me.ComboBox1.Items.Add(DirEntry.Properties("SAMAccountName").Value.ToString)
Next |
Ce code fonctionne, mais la liste retournée contienne tous les users (actifs et inactifs), alors que moi je voudrais récupérer seulement les utilisateurs actifs.
Que dois-je ajouter dans le filtre pour éliminer les utilisateurs inactifs ?
Ou bien existe t'il une propriété qui retourne l'état de l'utilisateur ?
Je vous remercie d'avance pour votre aide.
