PEGAR NOME DO USUARIO

USUARIO.EXCLUIDOS 10/03/2004 17:14:32
#14879 Resposta escolhida

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

Public Function sUserID() As String

Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
GetUserName sBuffer, lSize
If lSize 0 Then
sUserID = Left$(sBuffer, lSize - 1)
End If

End Function

Abraços,