Ejemplos usando el Api de windows para Visual basic

202 - Obtener el nombre de usuario

Función Api GetUserName para retornar el nombre del usuario actual en windows.

Descripción :

A la función GetUserName , se le envía un buffer en el cual retorna el nombre del usuario actual logueado en el sistema

Código fuente

Option Explicit ' Declaración del Api GetUserName Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long 'retorna un String con el nombre de usuario actual de windows '*************************************************************** Private Function get_Usuario() As String Dim Nombre As String, ret As Long ' Buffer Nombre = Space$(250) ' Tamaño ret = Len(Nombre) If GetUserName(Nombre, ret) = 0 Then get_Usuario = vbNullString Else ' Extrae solo los caracteres get_Usuario = Left$(Nombre, ret - 1) End If End Function Private Sub Form_Load() ' Muestra el usuario MsgBox "Nombre de usuario: " & get_Usuario End Sub

Buscar en Recursos vb