Help!!! How do i know the Current User??

[TetraD]

How can i get the name of the current user logged in windows?? Please reply if you know...
Thanks in advance..

[Serge]

You can use GetUserName API.

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

Private Sub Command1_Click()
    Dim lngRet As Long
    Dim strUser As String
    
    strUser = Space(125)
    lngRet = GetUserName(strUser, Len(strUser))
    If lngRet Then
        MsgBox "UserName: " & strUser
    End If
End Sub

[funkheads]

Text1.Text = "Username: " & Environ$("USERNAME")

that's it. good luck.

Michael