PEGAR NOME DO USUARIO

USUARIO.EXCLUIDOS 10/03/2004 16:28:32
#14873
Queria pegar o nome do usuario logado
tanks
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,
Tópico encerrado , respostas não são mais permitidas