Foxtable(狐表)用户栏目专家坐堂 → 机器码的问题?


  共有1984人关注过本帖树形打印复制链接

主题:机器码的问题?

帅哥哟,离线,有人找我吗?
pyh6918
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1128 积分:11035 威望:0 精华:2 注册:2008/9/1 10:45:00
机器码的问题?  发帖心情 Post By:2016/11/18 16:32:00 [只看该作者]

Foxtable提供了一个全局变量ComputerId,该变量返回12个字符,前4位表示硬盘信息,中间4位表示主板信息,最后4位表示CPU信息。

最近单位购买了一批台式电脑,机器码为:

M6ZPFNV6DERG
M6ZPL4UKGVME
M6ZPZ4IGONOT
M6ZPQV5FCEEQ
M6ZPZLM9GEW+
M6ZPWQGSIABK
M6ZPH9LCEUA2
M6ZP4FEX6WXN
M6ZPEIPN1M8K
M6ZPBE/E0YZ+
这是不是说这批电脑的硬盘都是一样的?


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107673 积分:547686 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/18 17:00:00 [只看该作者]

可能是,拆开看看就知道了图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1128 积分:11035 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2017/7/7 16:46:00 [只看该作者]

ComputerId返回的12个字符变动机率太大了

 

600台机器中有50多台机器码发生过变化,全都是后4位变化

 

各位老大有什么高招吗?怎么才能得到一串不变化的唯一的机器码?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/7 16:53:00 [只看该作者]

那就用硬盘id

 

output.show(HardDiskId)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/7 16:59:00 [只看该作者]

也可以用网卡号,这样

 

Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
msgbox(nics.length)
For Each nic As object In nics
    msgbox(nic.name & " " & nic.GetPhysicalAddress.tostring)
Next


 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1128 积分:11035 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2017/7/7 17:12:00 [只看该作者]

谢谢甜版,两者结合用试下吧


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/7 17:17:00 [只看该作者]


 回到顶部