How do I get current user name and domain?

In ASP we can get the user by this:

sUser=Request.ServerVariables("AUTH_USER")

But how do I get the user in VB?

I have used the API Function,

Private Declare Function w32_WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

but this only gets the user name.

I want the domain and username (<domain>\<username>)

Any suggestions?

Vone

VB Code:

Dim WinNTSysInfo As WinNTSysInfo
set WinNTSysInfo = New WinNTSysInfo
 
Debug.Print WinNTSysInfo.DomainName
Debug.Print WinNTSysInfo.UserName

or use the the "Environ" Function.

VB Code:

MsgBox Environ("USERDOMAIN")
MsgBox Environ("USERNAME")