Dim obj As Object
Set obj = CreateObject("RegCheckPrj.RegPsdPrjCls")

disnum = obj.GetDiskNumber("c:\") '得到硬盘序列号
cpunum = obj.GetCpuNumber '得到cpu序列号


Email: