DECLARE INTEGER ExpandEnvironmentStrings IN kernel32;
	STRING  lpSrc, STRING @lpDst, INTEGER nSize

? "COMPSPEC=",     GetVar ("%comspec%")
? "COMPUTERNAME=", GetVar ("%computername%")
? "USERDOMAIN=",   GetVar ("%userdomain%")
? "USERNAME=",     GetVar ("%username%")
? "USERPROFILE=",  GetVar ("%userprofile%")
? "SYSTEMROOT=",   GetVar ("%systemroot%")
? "TEMP=",         GetVar ("%temp%")
? "TMP=",          GetVar ("%tmp%")
? "PATH=",         GetVar ("%path%")

FUNCTION GetVar(lcVarname)
	LOCAL lnBufferSize, lcResult
	lnBufferSize = 2048
	lcResult = SPACE(lnBufferSize)
	lnResult = ExpandEnvironmentStrings(lcVarname, @lcResult, lnBufferSize)
RETURN IIF(lnResult > 0, LEFT(lcResult, AT(Chr(0), lcResult)-1), '')