? ALLTRIM(SUBSTR(SYS(0), AT("#", SYS(0))+1))

>* Function GetUserName
>* Returns Windows user name
>
>local lcBuffer, lnSize, lnRetCode, lcUserName
>lcBuffer = repl(chr(0),64)
>lnSize = LEN(lcBuffer) -1
>Declare Long WNetGetUserA in "mpr.dll" As GetUserName ;
>				STRING @lc0, STRING @lcBuffer, LONG @lnSize
>lnRetCode = GetUserName("", @lcBuffer, @lnSize )
>lcUserName = left(lcBuffer, at(chr(0), lcBuffer)-1)
>return lcUserName