davidsuarez.es

En algunas ocasiones nos es útil capturar el usuario del equipo que maneja nuestra aplicación para dejar constancia de quien ha sido el usuario que ha creado o modificado un registro. El siguiente codigo nos ayuda a ello. Nos permite capturar el usuario con el que se ha iniciado la sesión en un pc con Windows, si se trabaja en un entorno con dominio nos devolverá el usuario que ha iniciado la sesión en el dominio.

Primero debemos declarar la función en “General-Declaraciones” de la siguiente forma

Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpbuffer As String, nSize As Long) As Long

Luego podemos capturar el usuario en el Form_Load del formulario principal, en el caso siguiente pongo el nombre del usuario en la caja de texto txtUserName.

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long

sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• canalvisualbasic
• Web de recursos de Visual basic.
• enviar email con visual basic
• Maneja tu Ipaq desde el PC gratis.
• la web de dragon