Option 1.

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")

For Each objItem in colItems

    Wscript.Echo "Processor: " & objItem.Name

    Wscript.Echo "NumberOfLogicalProcessors: " & objItem.NumberOfLogicalProcessors

    Wscript.Echo "NumberOfCores: " & objItem.NumberOfCores

    Wscript.Echo

Next

<<<<<<<<<<<<<<<<<< OR  >>>>>>>>>>>>>>>

Option 2.

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colCSes = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

For Each objCS In colCSes

  WScript.Echo "Computer Name: " & objCS.Name

  WScript.Echo "System Type: " & objCS.SystemType

  WScript.Echo "Number Of Physical Processors: " & objCS.NumberOfProcessors

  WScript.Echo "Number of Logical Processors: " & objCS.NumberofLogicalProcessors

Next