how to get the login name?

[macluv22]

Is it possible to get the login name (Windows login) in Access (or VBScript)?

 

[Maquis]

Sure it's strLogon = Environ(S_USER) or strLogon = Environ("Username&quot Maq B-)
<insert witty signature here>

 

[Maquis]

Sorry, I forgot to put quotes around &quot;S_USER&quot; Maq B-)
<insert witty signature here>

 

[shiningblade]

Here is some code that I used to write the userid to an error log. I used this because the users wanted only one user id but I had to figure out who was having the problems. X-)

Const lpnLength As Integer = 255
Dim status As Integer
Dim lpName, lpUserName As String

lpUserName = Space$(lpnLength + 1)
status = WNetGetUser(lpName, lpUserName, lpnLength)

If status = NoError Then
' This line removes the null character. Strings in C are null-
' terminated. Strings in Visual Basic are not null-terminated.
' The null character must be removed from the C strings to be used
' cleanly in Visual Basic.
lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else
lpUserName = &quot;&quot;
End If

lpUserName id the userid

HTH,

Jude