EnvironmentVariablesUsingWMI

SET MEMOWIDTH TO 1024
CLEAR

LOCAL loWMI, loEnvCol, loEnvVar
loLocator = CREATEOBJECT('WbemScripting.SWbemLocator')
loWMI = loLocator.ConnectServer()
loEnvCol = loWMI.ExecQuery("select * from Win32_Environment")

FOR EACH loEnvVar in loEnvCol
WITH loEnvVar
? .Name, .SystemVariable AT 25, .UserName, .VariableValue
ENDWITH
ENDFOR