Discussion :

[Antoine1183]

Bonjour je voudrais récupérer tous les users d'un qui se trouvent dans differents OU)

J'ai fait ça mais ça me donne pas le nom et le prenom séparé mais seulement le fullname.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
    Dim Domaine         As IADsDomain
    Dim Utilisateurs    As IADsUser
    Dim strDomaine      As String
 
    On Error Resume Next
 
    'Utiliser les services d'annuaire WinNT
    strDomaine = "WinNT://" & txt_domaine.Text
 
    'Créer l'objet Domaine
    Set Domaine = GetObject(strDomaine)
 
    'Rechercher les utilisateurs dans le domaine
    Domaine.Filter = Array("User")
    With grd_domaine
        .Redraw = False
            .Rows = 1
            .Row = 0
            For Each Utilisateurs In Domaine
                .Rows = .Rows + 1
                .Row = .Rows - 1
                .Col = 0
                .Text = Utilisateurs.Title
                .Col = 1
                Utilisateurs.GetInfo
                .Text = Utilisateurs.Get("userPrincipalName")
                .Col = 2
                .Text = Utilisateurs.Name
                .Col = 3
                .Text = Utilisateurs.LastLogin
                .Col = 4
                .Text = Utilisateurs.Description
                .Col = 5
                .CellAlignment = 4
                .Text = Utilisateurs.AccountDisabled
 
                If (Utilisateurs.AccountDisabled = True) Then
                    For i = 0 To 6
                        .Col = i
                        .CellBackColor = &HC0C0FF
                    Next
                End If
 
            Next Utilisateurs
        .Redraw = True
    End With
 
    'Nettoyer
    Set Domaine = Nothing

Je pense que je ne dois pas utiliser WinNT mais plutot "LDAP" pour récupérer le "givenname" et le "sn". Le probleme c'est que j'arrive à faire un parcours complet de l'AD.

Quelqu'un pourrait il me passer un bout de code, ou une source, ou un site, ... parce que là je sais plus comment faire

Merci d'avance pour votre aide

.

[Antoine1183]

y a pas de probleme, parce que je me doute que je dois pas etre le seul à faire cette recherche et à en chier.

Si je trouve un bon truc, je ferais meme un article sur ça pour votre site

mais en attendant je compte encore sur vous pour m'aider....

merci d'avance

[jmfmarques]

J'ai trouvé ce sujet, dont la lecture pourra peut-être t'intéresser :
http://www.developpez.net/forums/vie...ighlight=users
Mais (suis pas sur) il me semble avoir vu passer assez récemment (il y a 2 mois ?) un autre sujet où il était question de l'utilisation d'une ruche de la base de registre...
la page 2 de ce sujet (peut-être ?)
http://www.developpez.net/forums/vie...istre&start=15
Ce lien te donne enfin toutes les méthodes applicables à IADsUser
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/iadsuser.asp
Je regrette de ne pouvoir faire plus en ce qui me concerne