IWshShell.Environment Property

[José Roca]

The following code retrieves the system environment variable NUMBER_OF_PROCESSORS.

JScript

Code Select Expand


var WshShell = WScript.CreateObject("WScript.Shell");
var WshSysEnv = WshShell.Environment("SYSTEM");
WScript.Echo(WshSysEnv("NUMBER_OF_PROCESSORS"));


VBScript

Code Select Expand


Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")


PowerBASIC

Code Select Expand


DIM pWsh AS IWshShell
DIM pWshEnv AS IWshEnvironment
DIM vType AS VARIANT
pWsh = NEWCOM "WScript.Shell"
vType = "SYSTEM"
pWshEnv = pWsh.Environment(vType)
PRINT ACODE$(pWshEnv.Item(UCODE$("NUMBER_OF_PROCESSORS")))