求获取CPU序列号的代码

Question

求获取CPU序列号的代码，另请问一下，硬盘序列号可以改，CPU序列号是不是也可以改，因为要用此序列号生成注册码，所以这个问题比较重要。谢谢大家 。

Answer 1

Const strComputer As String = "."
Dim strClass As String
Dim wbemServices As Object
Dim wbemObjectSet As Object
Dim wbemObject As Object
Dim p As Object
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Processor")
For Each wbemObject In wbemObjectSet
debug.Print wbemObject.ProcessorId
Next

Answer 2

目前网上流行的获取硬盘物理序列号（固有序列号，即出厂序列号）的VB6代码，只能获取IDE硬盘的，SATA硬盘的我暂还没有找到。

Answer 3

能在底层hook到序列号读取的方法,也就能提供一个编造的序列号了吧?

Answer 4

这个不知道能否满足lz的要求
http://www.vbgood.com/thread-103820-1-1.html

Answer 5

只有Pentium III才有Serials Number，lz是从史前穿越回来的？