我用下面这段程序：所获取的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

进不去梅子论坛了

非常感谢！