Publicentral.com - promocion de paginas webpromocion de paginas web
Mostrando Codigo - Visual Basic
Code

Visual Basic - Obtener nombre de usuario de windows

Códigos Visual Basic

El ejemplo muestra como podemos obtener el nombre de usuarios de windows Debemos crear un boton en nuestro formulario el cual llamaremos Command1, al ser pulsado se ejecutará la aplicacion.
Visitas: 42,800 - 16/05/2004 2:40:49
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. ' ---------- MODULO
  2. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3.  
  4. ' ---------- FORMULARIO
  5.  
  6. Private Sub Command1_Click()
  7.   Dim lpBuff As String * 25
  8.                 Dim ret As Long, UserName As String
  9.     ret = GetUserName(lpBuff, 25)
  10.                 UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
  11.  MsgBox UserName
  12.   End Sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Obtener nombre de usuario de windows" href="http://www.tutores.org/codigo/1092/" target="_blank">Obtener nombre de usuario de windows</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
22-09-2008 20:39:55
5 5
Hola tendran este codigo para asp.net?? lo que pasa es que intento usar este codigo y me marca errores

espero lo tengan o me puedan dar pistas de como usarlo para asp.net

Muchas Gracias
Comentario usuario
26-06-2008 23:38:24
2 5
Saludos, agradezco mucho su publicación, fué de mucha ayuda para el desarrollo de un archivo que estoy generando.

Gracias.
Comentario usuario
VADER46
1 5
MUY BUENO T FELICITO
AHORA PREGUNTO SI EXE DE VB6 CORREN EN WIN VISTA?
Y LOC OCX CORREN EN WIN VISTA?
SALUDOS
THANKS
Comentario usuario
23-01-2009 18:16:37
1 5
Está Chanta el codigo, no sirve para nada, yo louse segui las indicaciones y no sirve, publiquen uno más bueno...Pero que sirve.


Chicoxx
Comentario usuario
alfred!
5 5
Chicoxx muerto este codigo funciona de 10, si no te sale esto que es tan simple, dedicate a otra cosa, tenes tiempo todavia.
No pudiste nisiquiera copiar + pegar
Comentario usuario
davit
4 5
Funciona de 10!... al menos en Access 2003 funciona de 10!.

muchas gracias!
Comentario usuario
03-06-2008 18:00:51
5 5
Muy bien felicitaciones
Comentario usuario
juanitomarmota
2 5
muy buen codigo ... funciona de maravilla a hoy ... gracias tios
Comentario usuario
shaggycp
1 5
El código publicado no me funcionó para VB 2010, estoy trabajando con WPF Y NET Framework 4.0. lo que encontre fue lo siguiente

System.Environment.UserName

Esta línea regresa un string con el nombre de usuario de Windows logueado al equipo.
Comentario usuario
05-12-2011 15:26:06
4 5
Una consulta sobre el codigo para obtener nombre de usuario:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Dim lpBuff As String * 25
Dim ret As Long, UserName As String

' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
user = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

Me pueden explicar que es lo que hace cada línea ya que tengo que comentar cada código que hago.
Gracias
Comentario usuario
ppmoon
1 5
Muchas gracias, fue de gran ayuda para mi esta consulta.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad

Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado
Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.