How to get system environment variables in qtp

How to get system environment variables in qtp

There are 3 ways to read environment variables:

    Use the WSH Shell object
    Use WMI's Win32_Environment class
    Read variables from the registry

Set wshShell = CreateObject( "WScript.Shell" )

WScript.Echo wshShell.ExpandEnvironmentStrings( "%PATHEXT%" )

wshShell = Nothing



The output will be

.BAT;.CMD;.VBS;.VBE;.JS;.JSE



Other user variables, like TEMP, overwrite their system counterpart:

Set wshShell = CreateObject( "WScript.Shell" )

WScript.Echo wshShell.ExpandEnvironmentStrings( "TEMP=%TEMP%" )

wshShell = Nothing



The output will be

TEMP=C:\DOCUME~1\You\LOCALS~1\Temp