Last updated: before December, 1998
The following script was submitted to the Approach Users Mailing List by Bill Tarkulich
Using Win32 API "getusername", he did it this way:
Declare Function GetUserName& Lib "advapi32.dll" Alias "GetUserNameA" (Byval _ lpBuffer As String, nSize As Long) Dim results As Long Dim Patha As String *200 results = GetUserName(Patha,pathlen)