Olá pessoal, gostaria de saber se tem como eu pegar o login do usuário logado no sistema operacional, desde agradeço...

 

[]s

Function G_NomeUsuario() As String
On Error GoTo Err_G_NomeUsuario
    Dim sBuffer As String
    Dim lBufSize As Long
    Dim lStatus As Long
   
    lBufSize = 255
    sBuffer = String$(lBufSize, " ")
    lStatus = GetUserName(sBuffer, lBufSize)
    G_NomeUsuario = ""
    If lStatus <> 0 Then
       G_NomeUsuario = Trim(Left(sBuffer, lBufSize - 1))
    End If
    If G_NomeUsuario = "" Then G_NomeUsuario = "Não Logado"
    Exit Function

Err_G_NomeUsuario:
    G_NomeUsuario = "Não Logado"
End Function