vb6獲取CPU序列號
Dim objWMIService, colDevices, objDevice
strComputer = "."
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
Set colDevices = objWMIService.execquery("select * from win32_processor")
For Each objDevice In colDevices
CPUID = objDevice.processorid
Me.Caption = CPUID
Next