DECLARE INTEGER GetUserName IN advapi32;
    STRING @lpBuffer,;
    INTEGER @nSize
    
nSize = 250
cBuffer = REPLICATE(Chr(0), nSize)
 
= GetUserName(@cBuffer, @nSize)
 
cBuffer = STRTRAN(cBuffer, CHR(0), "")
? "API:", cBuffer
 
? "Env.:", GETENV("USERNAME")