Obtener Nombres de Usuarios [Vb.Net]

Iniciado por Keyen Night, 14 Mayo 2010, 04:16 AM

0 Miembros y 1 Visitante están viendo este tema.

Keyen Night

Busque esto googleando pero parece que no hay material sobre esto, mi pregunta es simple como puedo obtener los nombres de todos los usuarios que existen en un equipo. Gracias ^^
La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...

Shell Root

Podrías realizar una consulta a la CMD y volcar el resultado en un Textbox?
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.

43H4FH44H45H4CH49H56H45H

Cita de: Keyen Night en 14 Mayo 2010, 04:16 AM
Busque esto googleando pero parece que no hay material sobre esto, mi pregunta es simple como puedo obtener los nombres de todos los usuarios que existen en un equipo. Gracias ^^


A la rápida en C# se puede hacer así:

Código (csharp) [Seleccionar]
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.DirectoryServices;
using System.Collections;

namespace Usuarios
{
   public partial class Form1 : Form
   {
       public Form1()
       {
           InitializeComponent();
       }

       private void button1_Click(object sender, EventArgs e)
       {
           //grupos: HelpServicesGroup,Administradores, Usuarios ...
           //Agregar referencia a System.DirectoryServices
           try
           {
               DirectoryEntry nombreEquipo = new DirectoryEntry("WinNT://" + Environment.MachineName);
               DirectoryEntry admins = nombreEquipo.Children.Find("Administradores", "group");
               object m = admins.Invoke("members", null);
               foreach (object g in (IEnumerable)m)
               {
                   DirectoryEntry mr = new DirectoryEntry(g);
                   listBox1.Items.Add(mr.Name);
               }
           }
           catch (Exception er)
           {
               MessageBox.Show(er.Message);
           }
       }
   }
}


Te toca pasarlo a Vb.net

-R IP
:0100
-A 100 
2826:0100 MOV AH,09
2826:0102 MOV DX,109
2826:0105 INT 21
2826:0105 MOV AH,08
2826:0105 INT 21
2826:0107 INT 20
2826:0109 DB 'MI NICK ES CODELIVE.$' 
2826:0127 
-R BX
:0000
-R CX
:20
-N CODELIVE.COM
-W

Keyen Night

Gracias me sirvo y lo pude pasar a .Net
La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...

43H4FH44H45H4CH49H56H45H


-R IP
:0100
-A 100 
2826:0100 MOV AH,09
2826:0102 MOV DX,109
2826:0105 INT 21
2826:0105 MOV AH,08
2826:0105 INT 21
2826:0107 INT 20
2826:0109 DB 'MI NICK ES CODELIVE.$' 
2826:0127 
-R BX
:0000
-R CX
:20
-N CODELIVE.COM
-W