AD: Récupérer les groupes dont faire partie un user

Ok j'ai trouvé :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Public Sub ismemberof()
        Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://.........)
        Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
 
        searcher.Filter = "(objectCategory=user)"
 
        Dim username As String = Form1.Liste_login_user.Text
        searcher.Filter = String.Concat("(&(objectClass=User) (sAMAccountName=", username, "))")
        'Ne récupère que la propriété MemberOf.
        searcher.PropertiesToLoad.Add("MemberOf")
        'Recherche et retourne la première entrée trouvée.
        Dim result As SearchResult = searcher.FindOne
        'Parcours le contenu de la propriété MemberOf de notre entrée trouvée.
        For i As Integer = 0 To result.Properties("MemberOf").Count - 1
            'Récupère la chaine LDAP.
            Dim sProp As String = result.Properties("MemberOf")(i)
            'Extrait le nom du groupe de la chaine.
            sProp = Mid(sProp, InStr(sProp, "CN=") + 3, InStr(sProp, ",OU=") - 4)
            Form1.Liste_groupe_user.Items.Add(sProp)
        Next
    End Sub