[VB6] Recupérer tous les Users d'un Active Directory

Question

Bonjour je voudrais r&#233;cup&#233;rer tous les users d'un qui se trouvent dans differents OU) 
J'ai fait &#231;a mais &#231;a me donne pas le nom et le prenom s&#233;par&#233; mais seulement le fullname. 

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&#233;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&#233;cup&#233;rer le "givenname" et le "sn". Le probleme c'est que j'arrive &#224; 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&#224; je sais plus comment faire 

Merci d'avance pour votre aide 

Zeus

bailong · Answer

J'ai presque un probl&#232;me du m&#234;me genre... 

Je suis en train de faire une appli en laissant le choix &#224; l'utilisateur de lister tous les Users (WinNT) du domaine choisit ou lister tous les Users d'une O.U. choisit. (LDAP)

Le probl&#232;me que j'ai viens aussi des propri&#233;t&#233;s avec WinNT, je pense qu'elles sont limit&#233;s... 

Moi, j'ai un probl&#232;me avec les derni&#232;res dates de connexions sur chaques controleurs de domaine.



Mais pour ton probl&#232;me tu pourrais utiliser .FullName et utiliser les expressions r&#233;guli&#232;res. 



Ex : On a le FullName : "Michel BLANC"



avec l'expression reguli&#232;re :



'Definit une expression reguliere, car dans le fichier excel, c'st presenter comme &#231;a : " Nom, Prenom "

Set RE = 
New RegExp

RE.Global = 
True

RE.IgnoreCase = 
True

RE.Pattern = "(.*), (.*)"
 ' On separer le nom et le prenom en groups, la separation se fait pas la " , "



Tmp = "Michel BLANC"



'Pour faire une recherche

Set oMatches = RE.execute(Tmp)

Set oMatch = oMatches(0)

Nom = oMatch.SubMatches(0) 'Correspond &#224; la premi&#232;re valeur (.*)

Prenom = oMatch.SubMatches(1) 'Correspond &#224; la Deuxi&#232;me valeur (.*)




BailonG -

[VB6] Recupérer tous les Users d'un Active Directory

1 réponse

Discussions similaires