主题：电脑的ComputerID与MAC的区别

1、我曾用computerid作为注册依据，要求关键用户（部门干事、部门会计、部门领导、公司领导等看到记录较多的人）的电脑必须注册，但现在很多用户说重装系统后无法登录，原因是computerid变了，本论坛也承认。但我的电脑不管重装多少次系统都没变，因此，到底问题出在哪儿也不知道。所以，为减少注册工作量并保证不影响工作，今天刚刚删除注册管理和登录管理两张表，要求用户用复杂的密码保护数据安全。

2、我开发的一套软件利用硬盘序列号和硬盘型号注册，但刚刚得知在win7下，如果不以管理员身份运行是无法获取序列号的，因此，又在VB的文件描述中赋值update解决问题。foxtable怎么获取？

3、我也想过用唯一的MAC注册，但在VB中测试发现，只有有线网卡和无线模块的笔记本电脑MAC地址竟然有3个，如果是台式机呢？而且MAC是可以暂时修改的。

反正这些参数都不可靠。

建议狐爸站在最终用户的角度考虑，增加类似computerID的参数，以获取硬盘型号、硬盘序列号、CPUID、MAC地址、主板序列号等，便于开发人员选择加密方法，不能要求每个最终用户都用Ukey，因为一是占用紧缺的USB口，二是使用不方便，三是必须随身带，否则影响工作，四是如果USB口供电不足就无法使用。

虽说懂VB就会懂狐表开发，但其实狐表很多东西与VB是不同的，不能套用，因此，懂VB是不够的，还需要狐爸开小灶指点。

谢谢，我知道有computerID，我的意思是希望提供类似computerID的其它参数。

bin版主：

    1、我在3楼说过，理论上不会变（硬件不变）的computerID会变，问题出在哪儿？如果能够提供单硬件的参数，是否便于查出原因？是否便于选择可靠的加密方法？

    2、我开发了2个管理系统，对关键用户要求用computerID注册，结果很多人重装系统就要重新注册，加上换电脑的，已影响到了双方的正常工作，迫使我放弃注册管理，并告诉他们靠密码保护数据。

    3、我能肯定VB在win7下如果不以管理员身份运行，将获取不到真实的硬盘序列号（获取的是假的）。但狐表的2个项目在我的电脑上却没有发生这种情况，很郁闷，真不知道原因在哪，因而也就无法解决。

谢谢。我原来就有VB6的代码，适当修改后真的可用。现分享（win7测试）：

Dim WMI As object = GetObject("WinMgmts:")
Dim disk1 As object
Dim mn,sn As String
For Each disk1 In WMI.InstancesOf("Win32_diskDrive")
    mn = disk1.Model
    Exit For
Next
For Each disk1 In WMI.InstancesOf("Win32_PhysicalMedia")
    sn = Trim(disk1.SerialNumber)
    Exit For
Next
output.Show(mn)
output.Show(sn)