NT User Name returns profile name "USER"

[MMcCarthy]

Hi everyone

I had an interesting problem today with a client.

I have set up security and privilege on a database depending on NT User Login. However, I've only just realised that the code returns the profile name and not the login name. This company has the profile name "USER" generic to its profiles for some strange reason. It may be a group issue, I'm not network savvy.

Does anyone know of a way of retrieving the actual login name.

The code I am using is the standard code as below ...

Declare Function GetUserName& Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long)
 
Function sys_OrigUserID() As String
On Error GoTo Err_sys_OrigUserID
' Returns the username of the current logged in user.
Dim s$, cnt&, dl&
Dim max_String As Integer
Dim usename As String
 
    max_String = 30
    cnt& = 199
    s$ = String$(max_String, 1)
    dl& = GetUserName(s$, cnt)
    usename = Trim$(left$(s$, cnt))
    usename = UCase(Mid(usename, 1, Len(usename) - 1))
    sys_OrigUserID = usename
 
Exit_sys_OrigUserID:
Exit Function
Err_sys_OrigUserID:
    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        MsgBox Err.Description, , "Error in Function SystemCode.sys_OrigUserID"
        Resume Exit_sys_OrigUserID
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function
 

[nico5038]

Did you try:
Environ("username")

Nic;o)

[MMcCarthy]

Did you try:
Environ("username")

Nic;o)

You mean change

sys_OrigUserID = username

to

sys_OrigUserID = Environ("username")

[nico5038]

Yes, I don't even use a function, just this Environ() function "straight away".
It can be used for all systemvariables available on the computer, so also:
Environ("computername")

Nic;o)

[MMcCarthy]

Yes, I don't even use a function, just this Environ() function "straight away".
It can be used for all systemvariables available on the computer, so also:
Environ("computername")

Nic;o)

Thanks Nico

I've never tried using it in this way. I'll test it out.

Mary

[MMcCarthy]

OK I've tested it and Environ seems to give the account name rather than the profile name which is what I need. I won't know for sure until I test it onsite and that won't be until next week but looking good.

Thanks Nico.

Mary

[Jim Doherty]

OK I've tested it and Environ seems to give the account name rather than the profile name which is what I need. I won't know for sure until I test it onsite and that won't be until next week but looking good.

Thanks Nico.

Mary

Supplemental to Nico Mary, look at this helpful wiki page you can reference the olther variables not just username to return what you need ie:userdomain,logonserver etc etc

http://en.wikipedia.org/wiki/Environment_variable

Jim

[MMcCarthy]

Supplemental to Nico Mary, look at this helpful wiki page you can reference the olther variables not just username to return what you need ie:userdomain,logonserver etc etc

http://en.wikipedia.org/wiki/Environment_variable

Jim

Thats great Jim.

Thank you very much.

[questionit]

Hi
There are many system and user variables in windows that can be used in Access with Environ()

If you do this:

1. Right click My Computer and then click Properties.
2. Click the Advanced tab.
3. Click Environment variables.

You will see the available variables.

You can use them in Command Prompt to read thier values.
In command prompt type: echo %Variable-Name%

For example: echo %OS%

Regards
Qi

Thats great Jim.

Thank you very much.