Active Directory : extraire le displayname

Version imprimable

09/10/2008, 15h41
urbanspike

Active Directory : extraire le displayname

Bonjour,

Je souhaite dans mon programme vb extraire le display name de tout mes users dans n'importe quelle UO. Ceci afin d'alimenter une liste déroulante qui permétra de sélectionner facilement le nom de la personne.

J'ai fait le tour des anciens post mais rien de concluent là dessus (API ou non...ect)

Si quelqu'un a au moins une bride de code à me fournir.

Merci d'avance.
09/10/2008, 20h23
ucfoutu

Bonjour,

Bonne lecture et bon amusement :

http://technet.microsoft.com/fr-fr/m.../cc162487.aspx

Bonjour,

J'ai trouvé finalement mon bonheur !! Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Domaine         As IADsDomain
Dim Ordinateur      As IADsComputer
Dim Utilisateurs    As IADsUser
Dim strDomaine      As String
 
'Accepter le nom de domaine
strDomaine = "Votre domaine"
 
'Utiliser les services d'annuaire WinNT
strDomaine = "WinNT://" & strDomaine
 
'Initialiser l'interface utilisateur
c_utilisateur.Clear
 
'Créer l'objet Domaine
Set Domaine = GetObject(strDomaine)
 
'Rechercher les ordinateurs dans le domaine
Domaine.Filter = Array("User")
 
For Each Utilisateurs In Domaine
  c_utilisateur.AddItem Utilisateurs.FullName
Next Utilisateurs
 
'Nettoyer
Set Ordinateur = Nothing
Set Domaine = Nothing

Merci encore