Discussion :

[Shennong]

Bonjour !

Je prépare une appli pour mon entreprise, et j'en suis arrivé à essayer de rapatrier une liste des PC présents dans une OU de l'active directory.

La structure est ainsi faite => Domaine (toto.int) -> Site (Paris, Brest, Lyon, Marseille) -> Clients -> Automates

J'aimerai un peu d'aide pour récupérer la liste des PC présents dans "Automates" pour les 4 sites séparément. Mais je ne vois pas comment faire. J'ai retourné le web, mais je n'arrive pas à trouver quelque chose qui fonctionne correctement.

Si une bonne âme peut m'aiguiller ce serait super !

Merci d'avance.

Cordialement-

[Shennong]

J'ai fais comme suit, cela fonctionne. Si cela peut aider quelqu'un ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim domainEntry As DirectoryEntry = New DirectoryEntry("LDAP://OU=Automates,OU=Clients,OU=VILLE,DC=entreprise,DC=ent") ' car domaine = Entreprise.ent, puis on déroule les OU du plus fin au plus large
domainEntry.Children.SchemaFilter.Add("computer")
 
For Each computer As DirectoryEntry In domainEntry.Children
 
lst_pc.Items.Add(computer.Name.Remove(0, 3))
 
 
Next