Auflisten von Benutzermitgliedschaften

Dieses Thema enthält Informationen und ein Codebeispiel, die veranschaulichen, wie Benutzermitgliedschaften mit einem Windows-Formular aufgelistet werden.

So erstellen Sie ein Windows-Formular zum Anzeigen von Benutzermitgliedschaften

1. Öffnen Sie Visual Studio, und wählen Sie Neues Projekt aus.

2. Klicken Sie im Bereich Projekttypen auf Visual C# oder Visual Basic und anschließend im Bereich Vorlagen auf Windows-Anwendung.

3. Geben Sie dem neuen Projekt einen Namen, und klicken Sie auf OK.

4. Klicken Sie auf Projekt>Verweis hinzufügen. Klicken Sie anschließend in der auf der Registerkarte .NET angezeigten Liste auf System.DirectoryServices.

5. Ziehen Sie auf der Formularentwurfsseite ein Textfeld aus der Toolbox in das Formular, und formatieren Sie es. In dieses Textfeld gibt der Benutzer einen Benutzernamen ein, an den eine Bindung erfolgen soll.

6. Ziehen Sie eine Bezeichnung aus der Toolbox auf das Formular, und ändern Sie die Text-Eigenschaft in "Enter Name:".

7. Ziehen Sie eine Schaltfläche aus der Toolbox auf das Formular, und ändern Sie die Text-Eigenschaft in "Find Groups".

8. Ziehen Sie ein ListBox-Steuerelement aus der Toolbox auf das Formular. Die Ergebnisse werden im Formular angezeigt.

9. Doppelklicken Sie auf das Formular, um zur Codeseite zu wechseln.

10. Fügen Sie die Anweisung "Using System.DirectoryServices;" am Ende der Anweisungsliste using hinzu, wenn Sie das C#-Beispiel erstellen. Fügen Sie die Anweisung "Imports System.DirectoryServices" am Ende der Anweisungsliste Imports hinzu, wenn Sie das Visual Basic-Beispiel erstellen.

11. Fügen Sie das folgende Codebeispiel zur Quelldatei hinzu.

12. Kompilieren Sie die Anwendung, und führen Sie sie aus.

Im folgenden Beispiel wird die Verwendung eines Windows-Formulars veranschaulicht, um Benutzermitgliedschaften aufzulisten.

Shared Sub Main() 
    Application.Run(New Form1())
End Sub 'Main

Private Sub label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 

End Sub 'label1_Click

Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) 

End Sub 'textBox1_TextChanged

Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
    Dim strUserADsPath As String = "LDAP://fabrikam/cn=" + textBox1.Text + ",cn=users,dc=fabrikam,dc=com"
    Dim oUser As DirectoryEntry
    oUser = New DirectoryEntry(strUserADsPath)
    listBox1.Items.Add("Groups to which {0} belongs:" + oUser.Name)

    ' Invoke IADsUser::Groups method.
    Dim groups As Object = oUser.Invoke("Groups")
    Dim group As Object
    For Each group In CType(groups, IEnumerable)
        ' Get the Directory Entry.
        Dim groupEntry As New DirectoryEntry(group)
        listBox1.Items.Add(groupEntry.Name)
    Next group
End Sub 'button1_Click


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) 

End Sub 'Form1_Load

static void Main() 
{
    Application.Run(new Form1());
}

private void label1_Click(object sender, System.EventArgs e)
{
}

private void textBox1_TextChanged(object sender, System.EventArgs e)
{
}

private void button1_Click(object sender, System.EventArgs e)
{
    string strUserADsPath = "LDAP://fabrikam/cn=" +textBox1.Text +",cn=users,dc=fabrikam,dc=com";
    DirectoryEntry oUser;
    oUser = new DirectoryEntry(strUserADsPath);
    listBox1.Items.Add("Groups to which {0} belongs:"+ oUser.Name);

    // Invoke IADsUser::Groups method.
    object groups = oUser.Invoke("Groups");
    foreach ( object group in (IEnumerable)groups)   
    {
        // Get the Directory Entry.
        DirectoryEntry groupEntry  = new DirectoryEntry(group);
        listBox1.Items.Add(groupEntry.Name); 
    }
}
private void Form1_Load(object sender, System.EventArgs e)
{
}

Siehe auch

Referenz

System.DirectoryServices

Konzepte

Benutzerverwaltung

Send comments about this topic to Microsoft.

Copyright © 2007 Microsoft Corporation. Alle Rechte vorbehalten.