' Listing 3: VistaWMIProcessorInfo.vbs

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
  ("SELECT * FROM Win32_ComputerSystem") 
For Each objItem in colItems 
  Msgbox "Number of Processors: " & objItem.NumberOfProcessors
Next
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each objItem in colItems 
  MsgBox "Processor: " & objItem.Name
  MsgBox "NumberOfLogicalProcessors: " & _
    objItem.NumberOfLogicalProcessors
  MsgBox "NumberOfCores: " & objItem.NumberOfCores
Next 






5