- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 机器码的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93027)
-- 发布时间：2016/11/18 16:32:00
-- 机器码的问题？
Foxtable提供了一个全局变量ComputerId，该变量返回12个字符，前4位表示硬盘信息，中间4位表示主板信息，最后4位表示CPU信息。
最近单位购买了一批台式电脑，机器码为：
M6ZPFNV6DERG
M6ZPL4UKGVME
M6ZPZ4IGONOT
M6ZPQV5FCEEQ
M6ZPZLM9GEW+
M6ZPWQGSIABK
M6ZPH9LCEUA2
M6ZP4FEX6WXN
M6ZPEIPN1M8K
M6ZPBE/E0YZ+
这是不是说这批电脑的硬盘都是一样的？
-- 发布时间：2016/11/18 17:00:00
--
可能是，拆开看看就知道了
-- 发布时间：2017/7/7 16:46:00
--
ComputerId返回的12个字符变动机率太大了
600台机器中有50多台机器码发生过变化，全都是后4位变化
各位老大有什么高招吗？怎么才能得到一串不变化的唯一的机器码？
-- 发布时间：2017/7/7 16:53:00
--
那就用硬盘id
output.show(HardDiskId)
-- 发布时间：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
-- 发布时间：2017/7/7 17:12:00
--
谢谢甜版，两者结合用试下吧
-- 发布时间：2017/7/7 17:17:00
--
你也可以自行获取硬件信息的
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85795&skin=0
http://blog.csdn.net/taozpwater/article/details/8053685