I found this http://www.ozgrid.com/forum/showthread.php?t=62635
Post #6
Code:
Sub ProcessorInfo()
Dim cimv2, PInfo, PItem ' no idea what to declare these as
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
Debug.Print ("Processor: " & PItem.Name & vbCrLf & "Id: " & PItem.ProcessorId) '<<--I added this line
MsgBox ("Processor: " & PItem.Name & vbCrLf & "Id: " & PItem.ProcessorId)
Next PItem
End Sub
Need to verify results somehow........