求助：请教获取电脑唯一机器码的办法？
我用下面这段程序：所获取的CPUID重复的太多。。不能保证机器码的唯一性。现求一办法，能保证所获取的电脑机器码每台唯一。。。
以下是我的原来使用的，但取不到唯一的机器码。。
LOCAL oWMI AS OBJECT,oLocal AS OBJECT,oHARDWARE AS OBJECT,object1 AS OBJECT,lcCPUID,LcMAC,lcHDID,lcSerial
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_Processor")
FOR EACH object1 IN oHARDWARE
lcCPUID=object1.Properties_('ProcessorId').VALUE
EXIT
ENDFOR
