Te puedes encontrar diferentes codigos para hacerlo, algunos más complicados otros más sencillos, yo utilizo este, y te pongo el codigo para que además sepas que computadora está utilizando el usuario.
(1) En un formulario pega lo siguiente, no necesariamente debe ir en el Form_Load ponlo donde lo necesites y cambia el nombre de las cajas de texto si lo requieres.
Private Sub Form_Load()
Me.txt_WindowsUser.Value = GetUser()
Me.txt_ComputerName.Value = GetComputer()
End Sub
(2) Crea un modulo y pega lo siguiente:
Option Compare Database
Private Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" _
(ByVal lpszReturnBuffer As String, ByRef lpdwBufferSize As Long) As Long
Private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" _
(ByVal lpszReturnBuffer As String, lpdwBufferSize As Long) As Long
Public Function GetUser() As String
Dim sReturnBuffer As String * 255
Dim lBufferSize As Long
Dim lErrNo As Long
lBufferSize = Len(sReturnBuffer)
lErrNo = GetUserName(sReturnBuffer, lBufferSize)
GetUser = Left$(sReturnBuffer, lBufferSize - 1)
End Function
Public Function GetComputer()
Dim sComputerName As String * 255
Dim lNameSize As Long
Dim lErrNo As Long
lNameSize = Len(sComputerName)
lErrNo = GetComputerName(sComputerName, lNameSize)
GetComputer = Left$(sComputerName, lNameSize)
End Function
