logged on user name in vb6? 1

[JonesMone]

I used to pick up the user name from an environment variable in windows 95/98 but this doesnt work in win2000.
Do you know of an simple solution to finding out who is logged in to workstation?(i have some sort of solution involving reams of code calling the api, yuck)


----------------------------------------
How do people find the time to type this bit?

 

[CCLINT]

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

Private Function WinUser_S() As String
Dim sBuffer As String
sBuffer = String(100, Chr$(0))

GetUserName sBuffer, 100

WinUser_S = Left$(sBuffer, InStr(sBuffer, Chr$(0)) - 1)

End Function [/b][/i][/u][sub]*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!

 

[JonesMone]

Thanks CClint, thats a bit tidier than the solution i had!