Bonjour a tous

Je recherche désespérément de lister les utilisateurs qui ce trouve dans le groupe "administrateurs"

J'ai réussi a créer un utilisateur, et a le mettre dans le groupe d'administrateur, a lister aussi les utilisateurs simple

Mais comment faire pour lire les membres qui ce trouve dans un groupe ?
et/ou
Comment savoir quel utilisateur fait partie de quel groupe ? ("If DeUser.SchemaClassName.ToLower = "user" Then")


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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
        Dim De As New DirectoryEntry("WinNT://" & Environment.MachineName & ",computer")
        Dim DeNewUser As DirectoryEntry = De.Children.Add("CreateNewUserTest", "user")
 
        '
        ' Definir son mot de pass
        '
        DeNewUser.Invoke("SetPassword", New Object() {"#Mypassw0rd2009#"})
 
        '
        ' Application creation
        '
        DeNewUser.CommitChanges()
 
        '
        ' On l'ajoute dans le groupe Administrateurs
        '
        Dim DeGroupAdmins As DirectoryEntry = De.Children.Find("administrateurs", "group")
 
        '
        ' Vérification
        '
        If DeGroupAdmins IsNot Nothing Then
            DeGroupAdmins.Invoke("Add", New Object() {DeNewUser.Path.ToString()})
            Console.WriteLine("Création du compte réussie")
        End If
 
        '
        ' Liste tout les utilisateurs
        '
        For Each DeUser As DirectoryEntry In De.Children
            If DeUser.SchemaClassName.ToLower = "user" Then
                Console.WriteLine(DeUser.Name & vbTab & DeUser.Properties("group").Value)
            End If
        Next
 
 
        '
        ' Delete User
        '
        De.Children.Remove(DeNewUser)
Merci d'avance