Nombre de usuario

battu
03 de Julio del 2004
hola

Estoy Haciendo una aplicación en viual basic quiero mostrar el nombre del usuario de la máquina donde se está ejecutando la aplicación en una caja de texto, como obtener el nombre del usuario?

Muchas gracias

Cristian
03 de Julio del 2004
Hola

Primero que todo quiero decirte que este codigo lo acabo de probrara antes de colocarloo aqui y tambien ya tiempo atras lo
habia probrado y funcionaba correctamente lo ensaye cambiando de usuario y en las diferentes
secciones de mi PC y Funciono.

Lo probe en Windows Millenium.

Ahora si aqui esta el codigo

'Coloca esto en un modulo

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

Public Function GetWindowsLoginUserID() As String
Dim rtn As Long
Dim sBuffer As String
Dim lSize As Long

sBuffer = String$(260, Chr$(0))
lSize = Len(sBuffer) - 1
rtn = GetUserName(sBuffer, lSize)
If rtn Then
sBuffer = Left$(sBuffer, lSize)

If InStr(sBuffer, Chr$(0)) Then
sBuffer = Left$(sBuffer, InStr(sBuffer, Chr$(0)) - 1)
End If

GetWindowsLoginUserID = sBuffer
Else
GetWindowsLoginUserID = ""
End If

End Function

'Hasta aqui termina el codigo del modulo.


Ahora coloca en un formulario una caja de texto Text1 y acontunuacion este codigo
en el evento load del formulario.


Private Sub Form_Load()
Text1 = GetWindowsLoginUserID
End Sub


Listo cuando ejecutas tu aplicacion e la caja de texto aparece el usuario que corrio el programa.



Bueno espero que te funcione asi como me sirvio a mi.

Visita www.theemulator.tk

Saludos