How get the user's login name?

Basics:  VB6 sp5.  Running on Windows NT or Windows 2000.

How do I read the user's login name on a W/NT or W/2000 system?  I assume the user's login name is stored in a system memory variable that I can access.

Thanks.
LVL 7
EYoungAsked:
Who is Participating?
 
vinnyd79Connect With a Mentor Commented:
MsgBox environ("username")
0
 
hongjunCommented:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim strUserName As String

    'Create a buffer
    strUserName = String(100, Chr$(0))
    'Get the username
    GetUserName strUserName, 100
    'strip the rest of the buffer
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

    'Show the temppath and the username
    MsgBox "Hello " & strUserName
End Sub


hongjun
0
All Courses

From novice to tech pro — start learning today.