Active Directory recherche d'OU

cs_metos Messages postés 168 Date d'inscription vendredi 18 janvier 2002 Statut Membre Dernière intervention 19 octobre 2009 - 28 janv. 2003 à 21:19
doryseb Messages postés 2 Date d'inscription jeudi 12 août 2004 Statut Membre Dernière intervention 16 août 2004 - 16 août 2004 à 14:37
J'arrive à lister les users du domaine ainsi que les groupes, mais pas les OU. J'aimerais d'une part pouvoir lister les OU mais surtout j'aimerais pouvoir n'afficher que les utilisateur d'une OU.

Merci d'avance.

Metos-RES-

1 réponse

doryseb Messages postés 2 Date d'inscription jeudi 12 août 2004 Statut Membre Dernière intervention 16 août 2004
16 août 2004 à 14:37
J'ai fait ce petit bout de code qui va lire les OU et qui les affiches dans une comboBox (LBox_OU).
Donc si ça peut t'aider

'****************************************'
' Lecture et affichage des OU existantes '
'****************************************'

Sub LectureOU()
Dim dom As IADsContainer
Dim OU As IADsOU

Set dom = GetObject("LDAP://Host.domaine.com")

' Ne sélectionne que les objets "Unité Organisationnelle".

dom.Filter = Array("organizationalUnit")

' Affiche les noms des OU dans la LBox_OU

For Each OU In dom
Nom = OU.Get("Name")
LBox_OU.AddItem (Nom)
Next
LBox_OU.Text = LBox_OU.List(0)
LBox_OU.ListIndex = 0

End Sub

Il faut faire attention à ce qu'il y a comme adresse derrière le LDAP:// pour bien se connecter au bon serveur et domaine
0