Enumerar las suscripciones de usuario

En este tema se incluye información y un ejemplo de código que muestra cómo utilizar un formulario de Windows para enumerar las suscripciones de usuario.

Para crear un formulario de Windows y mostrar las suscripciones de usuario

1. Abra Visual Studio y seleccione Nuevo proyecto.

2. En el panel Tipos de proyecto, haga clic en Visual C# o Visual Basic, y en el panel Plantillas, haga clic en Aplicaciones para Windows.

3. Proporcione un nombre al nuevo proyecto y haga clic en Aceptar.

4. Haga clic en Proyecto>Agregar referencia y, a continuación, en System.DirectoryServices en la lista mostrada en la ficha .NET.

5. En la página de diseño de formularios, arrastre un cuadro de texto desde el cuadro de herramientas hasta el formulario y asígnele formato. Es aquí donde el usuario agrega un nombre de usuario al que enlazarlo.

6. Arrastre una etiqueta desde el cuadro de herramientas hasta el formulario y modifique la propiedad Text para que indique "Insertar nombre:"

7. Arrastre un botón desde el cuadro de herramientas hasta el formulario y modifique la propiedad Text para que indique "Buscar grupos:"

8. Arrastre un ListBox desde el cuadro de herramientas hasta el formulario. Los resultados se mostrarán en el formulario.

9. Haga doble clic en el formulario para dirigirse a la página de códigos.

10. Si se crea el ejemplo de C#, agregue la instrucción "using System.DirectoryServices;" al final de la lista de instrucciones using. Si se crea el ejemplo de Visual Basic, agregue la instrucción "Imports System.DirectoryServices" al final de la lista de instrucciones Imports.

11. Agregue al archivo de origen el ejemplo de código incluido después de este procedimiento.

12. Compile y ejecute la aplicación.

El siguiente ejemplo muestra cómo utilizar un formulario de Windows para enumerar las suscripciones de usuario.

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)
{
}

Consulte también

Referencia

System.DirectoryServices

Conceptos

Administración de usuarios

Send comments about this topic to Microsoft.

Copyright © 2007 Microsoft Corporation. Reservados todos los derechos.