Ldap MemberOf - Afficher les groupes d'un utilisateur dans une ListBox

Version imprimable

Bonjour,

Je rencontre un problème avec l'affichage des groupes d'un utilisateur en provenant de l'Active Directory vers ma ListBox.

En effet, lorsque je lance le code, il m'affiche la listes des groupes sous cette forme:

CN=XXX,OU=XXX etc etc

et autant de fois que le user a de groupes dans son compte.

Voici le code:
Code:

1 2 3 4 5 6 For i As Integer = 1 To 100 'ListBox_User_MemberOf.Items.Add(i.ToString(Search_User_Informations(TextBox_Username.Text, "memberOf"))) ListBox_User_MemberOf.Items.Add(Search_User_Informations(TextBox_Username.Text, "memberOf") & i.ToString()) Next i
1ère question: Est-ce que mon code For i As Interger est correct, c'est-à-dire est-ce qu'il joue bien son rôle d'ajout d'une nouvelle ligne pour chaque groupe trouvé?

2ème question: Comment faire pour afficher le "vrai" nom de chaque groupe (par exemple Gu_Administrateur au lieu de CN=XXX,OU=XXX)?

Merci

Bonjour,

Pouvez-vous svp m'aider à ce sujet?

La propriété memberOf ne m'affiche qu'un seul groupe pour l'utilisateur, alors que celui-ci en a beaucoup plus.

Je poste ici le mon code (la fonction m'a été fournie par SainteLaitLait):

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
 
Public Function Search_User_Informations(ByVal AD_Username As String, ByVal AD_Propriete As String) As String
        Try
 
            Dim mydirentry As New DirectoryEntry("LDAP://rootDSE")
            Dim searcher As New DirectorySearcher("LDAP://rootDSE")
 
            'Au dÃ©part, la valeur est vide
            Dim StrRetADInfo As String = ""
 
            'SpÃ©cifier la propriÃ©tÃ© Ã* rechercher. Si plusieurs, faire d'autres .add()
            searcher.PropertiesToLoad.Add(AD_Propriete)
 
            'SpÃ©cifier le filtre du searcher, la condition si tu veux.
            searcher.Filter = "(anr=" & AD_Username & ")"
 
            'DÃ©clarer la variable qui va contenir les rÃ©sultats, qui sont une collection
            Dim results As SearchResultCollection
 
            'On dit a notre searcher de trouver tout ce qui concorde avec propertiesToLoad et Filter.
            'Stockage de la collection renvoyÃ©e par le searcher dans results
            results = searcher.FindAll()
 
            'Exploration de la collection avec un for each
            'Cela permet d'avoir accÃ¨s aux propriÃ©tÃ©s des membres de la collection sans devoir travailler avec les indices du tableau
            For Each result As SearchResult In results
                'result reprÃ©sente un item dans la collection qu'est results
                'chaque item de la collection a un attribut Properties, qui est un tableau avec les
                'rÃ©sultat de la recherche.On utilise la variable AD_Propriete pour que ce soit dynamique.
                'Imagine que ca donne :(properties(profilePath)(0) lorsque AD_Propriete vaut "profilePath".
                'C'est donc un tableau Ã* deux dimensions. L'axe des x est reprÃ©sentÃ© 
                'par les propriÃ©tÃ© recherchÃ©e, et l'axe des y sont les infos relatives Ã* chaque propriÃ©tÃ©
                StrRetADInfo = (result.Properties(AD_Propriete)(0)).ToString
            Next
 
            'Retour de la valeur trouvÃ©e
            Return StrRetADInfo
 
 
        Catch ex As Exception
 
            'Si aucune valeur est retournÃ©e, on attribut une valeur
            StrErreur = ""
            Return StrErreur
 
        End Try
 
    End Function
 
...
 
  Private Sub Button_Load_Informations_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Load_Informations.Click
 
Dim SAMAccountName As String = Search_User_Informations(TextBox_User_UserId.Text, "SAMAccountName")
 
If SAMAccountName <> "" Then
For Each MemberOf_Results As Object In Search_User_Informations(TextBox_User_UserId.Text, "memberOf")
TextBox1.Text = Replace(Split(Search_User_Informations(TextBox_User_UserId.Text, "memberOf"), ",")(0), "CN=", "", 1, -1, 1)
Next
Else
TextBox1.Text = ""
End If

Merci

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
''' <summary>
    ''' Retourne le(s) rôle(s) de l'utilisateur passé en parametre 
    ''' </summary>
    ''' <param name="user"> </param>
    ''' <returns> Un tableau avec les rôles attribués à l'utilisateur dans AD </returns>
    ''' <remarks> Retourne Nothing sinon</remarks>
    Private Function GetRoles(ByVal user As String) As String()
 
        Dim propertyCount As Integer
 
        'Initialisation du tableau avec 10 String "" 
        Dim roles As String()
        roles = New String(10) {}
 
        Dim myDE As New System.DirectoryServices.DirectoryEntry("LDAP://NOMDOMAINE", "userActiveDirectory", "mdpActiveDirectory")
        Dim mySearcher As New DirectorySearcher(myDE)
        mySearcher.Filter = "sAMAccountName=" & user
        mySearcher.PropertiesToLoad.Add("memberOf")
 
        Try
            Dim myresult As SearchResult = mySearcher.FindOne()
            propertyCount = myresult.Properties("memberOf").Count
 
            Dim dn As String
            Dim equalsIndex, commaIndex As String
            For i As Integer = 0 To propertyCount - 1
                dn = myresult.Properties("memberOf")(i).ToString
                equalsIndex = dn.IndexOf("=", 1).ToString
                commaIndex = dn.IndexOf(",", 1).ToString
                If equalsIndex = "-1" Then
                    Exit For
                End If
                roles(i) = dn.Substring((CInt(equalsIndex) + 1), (CInt(commaIndex) - CInt(equalsIndex)) - 1)
            Next
 
        Catch ex As Exception
 
            If ex.GetType Is GetType(System.NullReferenceException) Then
                'they are still a good user just does not 
                'have a "memberOf" attribute so it errors out.
                'code to do something else here if you want
                roles = Nothing
            End If
        End Try
 
        Return roles
 
    End Function

Voici ce que tu cherches,

je te laisse mettre le tableau dans ta listbox :)

salut mohamed301084,

merci pour ton post ;)

je vais faire mon neuneux....je n'arrive pas à afficher la liste dans ma listbox :cry:

voici mon code (suis certain que je suis à côté de la plaque)
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each MemberOf_Results As Object In GetRoles(TextBox1.Text) ListBox1.Items.Add(Replace(Split(GetRoles(TextBox1.Text), ",")(0), "CN=", "", 1, -1, 1)) Next End Sub
Encore merci pour ton aide.

Salutations.

Salut,

J'ai également testé simplement avec les 2 codes suivants mais cela ne fonctionne pas non plus :(

Code:

1
2
3
4
5
6
 
Private Sub Button1_Click(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
ListBox1.Items.AddRange(GetRoles(TextBox1.Text))
 
End Sub

Code:

1
2
3
4
5
6
 
Private Sub Button1_Click(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
ListBox1.Items.Add(GetRoles(TextBox1.Text))
 
End Sub

Please Help :cry: