About the environ 1

[checkOut]

I use Access2000
Some of our systems use Win2000, or Win98.

My bad experience is in Win98 the environ function
(run this one) has less features
Public Function Env(lngID As Long)
Dim i As Integer
For i = 1 To lngID
Debug.Print Environ(i)
Next i
End Function
The feature I need (Environ("username&quot is not available.
Anybody know how to solve this.
Maybe update a library or something.
or an other way to handle this, it's very important while I'm using through the whole app this function.

Thnx in advance,
Gerard

 

[VBslammer]

Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Public Function UserLoginName() As String

  Dim strName As String
  strName = Space(255)
  
  Call WNetGetUser("", strName, Len(strName))
  
  UserLoginName = Trim(strName)
  
End Function

VBSlammer

Unemployed in Houston, Texas