strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
Wscript.Echo "System Name: " & objComputer.Name
Wscript.Echo "Number of Processors: " & _
objComputer.NumberOfProcessors
Next
Set colItems = objWMIService.ExecQuery(_
"Select * from Win32_Processor")
For Each objItem in colItems
Wscript.Echo "No of Cores: " _
& objItem.NumberOfCores
Next