La Web del Programador: Comunidad de Programadores
 
    Pregunta:  47413 - CONOCER EL USUARIO EN XP CON VISUAL BASIC
Autor:  Antonio Álvarez
En Visual Basic y con XP
¿Como se puede conocer qué usuario está usando la máquina?
Necesito conocer quién es el usuario para luego darle permisos concretos en mi programa. Gracias de antemano

  Respuesta:  Boluarte Huamani Palomino
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
MsgBox strUserName
End Sub