Discussion :

[david87]

bonjour,

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

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

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
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

[david87]

c'est bon j'ai trouvé

pour info j'ai utlisé c code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim a As Integer
For a = 0 To DirEntry.Properties("memberof").Count - 1
    Dim position As Integer
    position = InStr(DirEntry.Properties("memberof").Item(a), ",")
    ComboBox_groupe.Items.Add(Mid(DirEntry.Properties("memberof").Item(a), 4, position - 4))
Next