Using AP get UserName in access 2K 1

[brightstar]

OK, Ive converted and Access 97 db into 2K. But now my function that identifies the current logged on user doesnt see to work. its an API called advapi32.dll i think. here it is:

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

Function ap_GetUserName() As String

' Declare Variables
Dim strUserName As String
Dim lngLength As Long
Dim lngResult As Long

' Set up the buffer
strUserName = String$(255, 0)
lngLength = 255

' Make the call
lngResult = wu_GetUserName(strUserName, lngLength)

' Assign the value
ap_GetUserName = Left(strUserName, 8)

End Function

normally this would give you the username, on our NT network, but on the NT laptop it gives |||||||||||||||.
any ideas how i can fix it?

 

[xlbo]

on an NT network, you can use
myUser = environ("username&quot
to get the same information - however, both methods are unreliable if the laptop is not connected to the network Rgds
Geoff

Vah! Denuone Latine loquebar? Me ineptum. Interdum modo elabitur

 

[brightstar]

so is there any way of recovering the logged on username on a stand alone laptop? even if it is "administrator" or "User", surely the API should still return something?

 

[xlbo]

You could try the environ("username&quot - I have not tested on a standalone pc - that was from something I read - it may be that the unreliable effect is that it returns "administrator" or something - worth a try tho
Rgds
Geoff

Vah! Denuone Latine loquebar? Me ineptum. Interdum modo elabitur

 

[brightstar]

it does return administrator or whatever username you have used - but at least there's about 15 lines less code in that way of doing it than in mine and it has the disired effect.

cheers.