getting windows username

[pfogle]

Hi,
does anyone know how you pick up the username from the windows login in a VB6 app? I want to identify the user in a log file.

thanks
Phil

[amino0o]

Hi,
does anyone know how you pick up the username from the windows login in a VB6 app? I want to identify the user in a log file.

thanks
Phil

Yup! Based on functions...




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

Public Function localUserName() As String
Dim m_myBuf As String * 25
Dim m_Val As Long, UserName As String

m_Val = GetUserName(m_myBuf, 25)
localUserName = Left(m_myBuf, InStr(m_myBuf, Chr(0)) - 1)
' YAYY i got the fokin user name to current
' logged on user!!!
' username = localUserName
End Function



put that code in the declarations..
now the loggod on user name would be
localUserName

so if u typed..

text1.text = localUserName

ir will come up with the logged on user..





amino0o