得到CPU序列号

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

strout=""   Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")   Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")   str=""   str=str & vbcrlf & "For Each objItem in colItems"   str=str & vbcrlf & " strOut = strOut & objItem.ProcessorId & vbcrlf"   str=str & vbcrlf & "Exit For"   str=str & vbcrlf & "Next"   Execute(str)   MessageBox "CPU序列号:"&strOut