PEGAR USUARIO DO WINDOWS

AMILTON 08/06/2005 15:26:53
#87759
Ola , Gostaria de saber como faço para pegar o usuario que fez logon na rede ou no windows,

Uso o xp, e tem varios usuarios , gosatia de saber algun codigo que pega qual usuario fez logoff.
USUARIO.EXCLUIDOS 08/06/2005 15:38:11
#87766 Resposta escolhida 
Public 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)
    MsgBox sUserID
  End If
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar