#INCLUDE "WSHOM.INC"
LOCAL pWsh AS IWshShell
LOCAL pWshEnv AS IWshEnvironment
LOCAL vType AS VARIANT
pWsh = NEWCOM "WScript.Shell"
' Get a reference to environment collection
vType = "SYSTEM"
pWshEnv = pWsh.Environment(vType)
STDOUT ACODE$(pWshEnv.Item(UCODE$("NUMBER_OF_PROCESSORS")))