取cpu序列号有关问题

取cpu序列号问题
Dim   cpuSet
        Dim   cpu
        Dim   cpuid
        Set   cpuSet   =   GetObject( "winmgmts:{impersonationLevel=impersonate} ").InstancesOf( "Win32_Processor ")
        For   Each   cpu   In   cpuSet
            cpuid   =   cpu.ProcessorId
        Next

实际测试下来   这种方法在不同机器上取到的cpuid竟然有相同的（概率比较小）

这是怎么回事   有更好的取cpu序列号的方未能吗？？？


[解决办法]
disk32.dll
[解决办法]
MARK