Getting user names

[Guest_imported]

I tried this as a new module and then in the Immediate area I typed fOSUserName but did not get any user names logged on the network. Please advise how I can retrieve the UserName with which the user is logged into the
network?


[tt]

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

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = &quot;&quot;
End If
End Function
[/tt]

 

[Craig0201]

If you're using Access Security, try CurrentUser. If you've got NT clients, try =Environ(&quot;UserName&quot

HTH

Craig

 

[btaber]

you have to type:
? fOSUserName
that should do it for you, I tried it on win2000, and it worked, I am not sure about win98

 

[zevw]

I just posted this Bug on Friday.

Come to

http://www.tek-tips.com/gviewthread.cfm/lev2/4/lev3/27/pid/705/qid/293739

to view