How do i retrieve the Windows user id in VB6 so I can log the user's updates in my database? ?

Question

there must be some keyword or reserved word that stores it but I am very new to VB.

Thanks.

Answer 1

Option Explicit

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

Public Function GetNTUser() As String

Dim strUserName As String

    strUserName = String(100, Chr$(0))

    GetUserName strUserName, 100

    GetNTUser = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

End Function