1. strout=""
2. Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
3. Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
4. str=""
5. str=str & vbcrlf & "For Each objItem in colItems"
6. str=str & vbcrlf & " strOut = strOut & objItem.ProcessorId & vbcrlf"
7. str=str & vbcrlf & "Exit For"
8. str=str & vbcrlf & "Next"
9. Execute(str)
10. 弹出窗口 "CPU序列号:"&strOut