[HaBo]

' Einbindung des Verweises System.DirectoryServices
Imports System.DirectoryServices

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim root As New DirectoryEntry("WinNT:")
        Dim parent As DirectoryServices.DirectoryEntries
        parent = root.Children
        Dim d As DirectoryEntries = parent
        For Each complist As DirectoryEntry In parent
            For Each c As DirectoryEntry In complist.Children
                If (c.Name <> "Schema") Then
                    ComboBox1.Items.Add(c.Name)
                End If
            Next
        Next
    End Sub
End Class

For Each complist As DirectoryEntry In parent
            For Each c As DirectoryEntry In complist.Children
                If (c.Name <> "Schema" AND c.Group = "deine Gruppe" ) Then
                    ComboBox1.Items.Add(c.Name)
                End If
            Next
Next