如何使用 Windows WMI 组件来识别 CPU ID

Sub wmiProcessorID() 

　 Dim cpuSet As SWbemObjectSet 
　 Dim cpu　As SWbemObject 
　 
　 Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ 
　　　　　　　　　　　　　 InstancesOf("Win32_Processor") 
　 For Each cpu In cpuSet 
　　　MsgBox cpu.ProcessorId 
　 Next 
End Sub