Buenas, Leo.
Para realizar lo que solicitas, es decir, obtener el Nombre del Usuario actual que está utilizando el Sistema Operativo, basta con utilizar la API GetUserName.
El proceso de codificación es simple.
Para llevar a cabo esto, pega el código siguiente en un módulo, llamándolo, por ejemplo, mdGetUserName.BAS:
'________________________________________________________
'CÓDIGO FUENTE DEL MÓDULO
'________________________________________________________
'-------------------------------------------------------------------------
'Código fuente: Obtener nombre usuario
'Descripción: Una Función que obtiene, usando la API GetUserName,
' el nombre del usuario que está usando el PC
'Creador: Zoto - para www.lawebdelprogramador.com - Foro Visual Basic
'Usted puede distribuir este código, pero se agradeceria mantener
'esta cabecera intacta.
'Usted puede incluir este código en sus aplicaciones y modificarlo.
'Este código NO tiene Copyright. Úselo libremente.
'-------------------------------------------------------------------------
'API-> GetUserName { a partir de una variable Buffer i una Longitud,
'almacena en la variable Buffer el nombre de usuario cortándolo por la Longitud
'especificada }
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const MAX_NAME As Long = 255 'Determina la Longitud del Buffer
'Devuelve un String que contiene los
'255 primeros carácteres del nombre
'de usuario
Public Function GetUser() As String
Dim vBuffer As String 'Buffer que almacena el nombre de usuario
vBuffer = Space(MAX_NAME) 'Se prepara el Buffer para que albergue los datos
'con la longitud necesaria
GetUserName vBuffer, MAX_NAME 'Llamada a la API con la variable Buffer
'y la Constante de Longitud
GetUser = vBuffer 'Asignacion del Buffer al valor de retorno de la Función
End Function
'________________________________________________________
'CÓDIGO FUENTE DEL MÓDULO
'________________________________________________________
Y, cuando hayas pegado el código en el módulo, pega lo siguiente en el evento Load del Formulario principal del proyecto, para testear el código:
'________________________________________________________
'CÓDIGO FUENTE DEL FORMULARIO
'________________________________________________________
MsgBox "El nombre del usuario actual es: " & GetUser
'________________________________________________________
'CÓDIGO FUENTE DEL FORMULARIO
'________________________________________________________
Hasta aquí llega lo que sé para obtener el nombre del usuario actual.
Si el código no funciona correctamente o tienes alguna duda, postea aquí para que alguien pueda ayudarte.
Hasta otra,
Zoto
