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
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, ...)
Donc l'objectif de ce bout de code étant de charger la liste des utilisateurs dans mon "listUsers"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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()
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
Amuny,
Partager