Boa noite galera.

 

Como faço pra obter o usuário que está logado na máquina naquele momento ? Exemplo: Meu usuário de login é Braulio. Gostaria que minha aplicação pegasse esse nome do usuário que está logado na máquina, assim aproveitaria a senha de rede para fazer o login automático e definir os acessos a que ele teria direito na minha aplicação.

 

Agradeço muito a ajuda.

 

Gilberto.

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

Private Sub NomeDoUsuario()
    Dim Nome As String
    Dim Tamanho As Long
    Nome = Space(255)
    Tamanho = Len(Nome)
    GetUserName Nome, Tamanho
    MsgBox Trim(Nome)
End Sub