Usuario do Windows!

[Nomed 0]

Opa! procurei no forum e só achei pra ASP

tava precisando fazer o VB6 capturar o usuario logado na maquina!! valew :D

[LiPe 0]

coloque isso em um módulo

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

 

e essa função retorna o usuário

Public Function NetworkUserName() As String

 

Dim lpBuff As String * 25

Dim retval As Long

 

retval = GetUserName(lpBuff, 25)

' trim off any trailing spaces found in the name

NetworkUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

 

End Function