Get current Windows 98 Username

[smercer]

Hi all

I have a database which works great on Windows XP but fails because I am using code to get the user name and only works with Win XP that is:

Environ("UserName")

Could someone please tell me the code to use for windows 98?

Thanks a lot
scott

 

[ghudson]

Run this on the Win98 box to see the available environ values. There should be one that works for all versions of Windows.

Public Function PrintEnvironValues()
    
    Dim i As Integer
    For i = 1 To 9999
        If Len(Trim(Environ(i))) = 0 Then
            Exit For
        Else
            Debug.Print i & " = " & Environ(i)
        End If
    Next i
    
End Function

 

[ghudson]

If that fails then try one of these APIs...

API: Get Login name

API: Get full name of the user currently logged in to the system

 

[eggy168]

CurrentUser() works the same thing

 

[ghudson]

CurrentUser returns the users name from the workgroup that the user is joined to. The default CurrentUser name is Admin. If you log into a database that is secured with a workgroup file *.mdw then CurrentUser will return the current user name that the user logged into the db as.

The original poster smercer is looking for the users network name.

For a quick test...

MsgBox CurrentUser

..will return "Admin" if the user's PC is joined to the default System.mdw workgroup file.

 

[smercer]

Thanks guys,

Will test when I get home.

 

[smercer]

CurrentUser returns the users name from the workgroup that the user is joined to. The default CurrentUser name is Admin. If you log into a database that is secured with a workgroup file *.mdw then CurrentUser will return the current user name that the user logged into the db as.

Is true

Public Function PrintEnvironValues()
    
    Dim i As Integer
    For i = 1 To 9999
        If Len(Trim(Environ(i))) = 0 Then
            Exit For
        Else
            Debug.Print i & " = " & Environ(i)
        End If
    Next i
    
End Function

and

If that fails then try one of these APIs...

None work in Windows 98. sorry ghudson.

Thanks for helping

 

[ghudson]

Not sure what is going on for you or how you are using the code but I used to use all of those commands without fail with Windows 98 and Access 97.

 

[smercer]

I used to use all of those commands without fail with Windows 98 and Access 97.

Thats what the problem is, you are using Access 97 and I am using access XP.

Thanks for your help.