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, ...)

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()
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

Amuny,