IWshShell.ExpandEnvironmentStrings Property

[José Roca]

The following code expands the Windows Directory environment variable and displays it:

JScript

Code Select Expand


var WshShell = WScript.CreateObject("WScript.Shell");
WScript.Echo("WinDir is " + WshShell.ExpandEnvironmentStrings("%WinDir%"));


VBScript

Code Select Expand


set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo "WinDir is " & WshShell.ExpandEnvironmentStrings("%WinDir%")


PowerBASIC

Code Select Expand


DIM pWsh AS IWshShell
pWsh = NEWCOM "WScript.Shell"
PRINT ACODE$(pWsh.ExpandEnvironmentStrings(UCODE$("%WinDir%")))