Declaration :

DECLARE INTEGER GetUserName IN advapi32;
STRING  @ lpBuffer,;
INTEGER @ nSize

Usage :

nSize = 250
cBuffer = REPLICATE(Chr(0), nSize)
= GetUserName(@cBuffer, @nSize)
cBuffer = STRTRAN(cBuffer, CHR(0), “”)
? cBuffer
? GETENV(”USERNAME”)