Private Sub wmiProcessorInfo()
Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject
Dim itmx As ListItem
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")
For Each cpu In cpuSet
Set itmx = ListView1.ListItems.Add(, , cpu.DeviceID)
itmx.SubItems(1) = cpu.Availability
itmx.SubItems(2) = cpu.AddressWidth
itmx.SubItems(3) = cpu.CpuStatus
itmx.SubItems(4) = cpu.CurrentClockSpeed
itmx.SubItems(5) = cpu.MaxClockSpeed
itmx.SubItems(6) = cpu.L2CacheSize
itmx.SubItems(7) = cpu.L2CacheSpeed
itmx.SubItems(8) = cpu.VoltageCaps
itmx.SubItems(9) = cpu.Name
Next
End Sub