Private Sub WinRights()
        Dim sQuery As String = "WinNT://" & "DomainController" & ",computer"
        Dim AD As New DirectoryEntry(sQuery)
        Dim AD1 As New DirectoryEntry(sQuery)
        Dim i As Integer = 0
 
        Dim oGroup As DirectoryEntry = AD.Children.Find("User1", "user") 
 
 
 
        ' alle Member der Gruppe durchlaufen und anzeigen
        Dim oMembers As Object = oGroup.Invoke("Groups", Nothing)
        For Each oMember As Object In oMembers
            If oMember.name.ToString.StartsWith("GGT") Then
                i += 1
                DataGridView1.Rows.Add(i, oMember.name, oMember.description)
            ElseIf oMember.name.ToString.StartsWith("GGR") Then
                'hier soll geguckt werden in welchen Gruppen die GGR mitglied 
                ' ist, aber eine "memberOf" methode gibt es anscheinend nicht 
                ' ...
 
            End If
 
        Next
    End Sub