System.Management

Imports System.Management
Imports Microsoft.Win32

Private Sub GetProcInfo()
        Dim wmi As ManagementClass
        Dim Mobjs As ManagementObjectCollection
        Dim CPUID As String
        Dim CPUType As String
        wmi = New ManagementClass("Win32_Processor")
        Mobjs = wmi.GetInstances()
        For Each Mobj As ManagementObject In Mobjs
            CPUType = Mobj("Name")
            Debug.WriteLine(CPUType.ToString)
            CPUID = Mobj("ProcessorID")
            Debug.WriteLine(CPUID.ToString)
        Next
        Mobjs.Dispose()
        wmi.Dispose()
    End Sub