'First Add Reference to System.Management.dll
'then add: Imports System.Management
Sub cpuInfo()
Dim moSearch As New ManagementObjectSearcher("Select * from Win32_Processor")
Dim moReturn As ManagementObjectCollection = moSearch.Get
For Each mo As ManagementObject In moReturn
MsgBox(mo("ProcessorID"))
Next
End Sub