[Active Directory] Obtenir tout les utilisateurs, ou presque
Bonjour à tous!
Donc voici mon problème: J'essaie d'extraire de l'active directory de la boîte la liste des utilisateurs pour ensuite effectuer un petit traitement de routine (bloquer les inactifs, mettre des données à jour, etc)
Sauf que je suis bloqué au début :mrgreen:
En fait, voici un aperçu de la structure AD de la boîte:
+Dossier
+Dossier
+Groupes
+Dossier
-Utilisateurs
|+Specifique
|+Directeurs
|+Temporaire
|-User1
|-User2
|-User3
[...]
Et j'ai donc besoin du contenu de l'UO "Utilisateurs", mais sans récupérer ce que contient les autres dossiers (Specifique, Directeurs, ...)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Dim entree As DirectoryEntry
entree = New DirectoryEntry("LDAP://serverAD/ou=Utilisateurs,DC=bla,DC=ble,DC=blo")
'Dim domaine As System.DirectoryServices.ActiveDirectory.Domain
'domaine = System.DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain()
'entree = domaine.GetDirectoryEntry
Dim ouSearch As DirectorySearcher
ouSearch = New DirectorySearcher(entree)
ouSearch.Filter = "(objectCategory=OrganizationalUnit)"
ouSearch.SearchScope = SearchScope.OneLevel
ouSearch.PropertiesToLoad.Add("name")
'ouSearch.PropertiesToLoad.Add("sAMAccountName")
Dim listUsers As SearchResultCollection = Nothing
listUsers = ouSearch.FindAll() |
Donc l'objectif de ce bout de code étant de charger la liste des utilisateurs dans mon "listUsers"
Sauf qu'après traces je réalise qu'au lieu d'avoir les quelques 2-3000 users que je devrais avoir, ma liste contient 3-4 trucs non-identifiables, que j'imagine être les autres dossiers au même niveau.
Je me demande donc si c'est une question de code ou de LDAP pour avoir vraiment ce que je veux, et je ne sais pas trop pas où commencer mes recherches :?
Je fais donc appel a votre aide :oops:
Amuny,
