Tokinabo

Sub ProcessorInfo()
  Dim cimv2, PInfo, PItem
  Dim PubStrComputer As String
  PubStrComputer = "."
  Set cimv2 = GetObject("winmgmts:\\" & PubStrComputer & "\root\cimv2")
  Set PInfo = cimv2.ExecQuery("Select * From Win32_Processor")
  For Each PItem In PInfo
    MsgBox "Processor: " & PItem.Name & vbCrLf & "Id: " & PItem.ProcessorId
    'Debug.Print "Processor: " & PItem.Name & vbCrLf & "Id: " & PItem.ProcessorId
  Next PItem