How do I get current user name and domain?

[vonea]

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

[vonea]

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

[shragel]

or use the the "Environ" Function.

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