lister les groupes d'un user LDAP

bonjour,

je cherche à lister l'ensemble des groupes auquel appartient un utilisateur LDAP

quelqu'un aurait t-il une piste a me donner?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Try
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://mmon_ip", "david", "davidpass")
            Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
            searcher.Filter = "(objectClass=user)"
            Dim DirEntry As DirectoryEntry
            For Each result As SearchResult In searcher.FindAll
                DirEntry = result.GetDirectoryEntry
                If DirEntry.Properties("SAMAccountName").Value = "david" Then
 
 
                End If
            Next
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try

j'ai vu que pour un userPrincipal il y avait une methode getgroups mais je n'arrive pas l'utiliser

merci d'avance de votre aide

David