The following code retrieves the system environment variable NUMBER_OF_PROCESSORS.
JScript
var WshShell = WScript.CreateObject("WScript.Shell");
var WshSysEnv = WshShell.Environment("SYSTEM");
WScript.Echo(WshSysEnv("NUMBER_OF_PROCESSORS"));
VBScript
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")
PowerBASIC
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")))