Dim diskClass As New ManagementClass("Win32_Processor")
        Dim disks As ManagementObjectCollection = diskClass.GetInstances()
        Dim disk As ManagementObject
        For Each disk In disks
            Debug.WriteLine("ProcessorId = " & disk("ProcessorId").ToString() & _
              System.Environment.NewLine & _
            "Name = " & disk("Name").ToString())
        Next disk