Discussion :

[urbanspike]

Bonjour à tous,

Je cherche désespérément à récupérer les groupes de sécurité dont fais partir un utilisateur. Je sais récupérer le login, le nom complet, le mail... Mais pas les groupes.

J'utilise DirectoryServices pour ça.

Donc j'ai la liste de tout mes user dans une combobox, des login aussi. je veux choisir un login ou un nom dans la liste et cliquer sur un bouton pour récupérer leur groupes de sécurités...

Si quelqu'un peut m'aider. J'ai vu le code dans la faq vb.net mais impossible de l'adapter...

Merci d'avance.

[urbanspike]

Ok j'ai trouvé :

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