使用 VBScript 获取 Mac 地址答案

【问题标题】：Get Mac Address Using VBScript使用 VBScript 获取 Mac 地址
【发布时间】：2013-05-05 09:26:26
【问题描述】：

我正在尝试为我正在编写的 Excel（适用于 Windows）应用程序提供一些基本级别的保护。我正在考虑使用机器的 mac 地址生成许可证文件。我的问题是：如何使用 VBScript 获取 Mac 地址？

【问题讨论】：

【解决方案1】：

dim WMI:  set WMI = GetObject("winmgmts:\\.\root\cimv2")
dim Nads: set Nads = WMI.ExecQuery("Select * from Win32_NetworkAdapter where physicaladapter=true") 
dim nad
for each Nad in Nads
    if not isnull(Nad.MACAddress) then Wscript.Echo Nad.description, Nad.MACAddress   
next

但是 MAC 可能不是一个好的选择； What's a good way to uniquely identify a computer?.

这将返回所有物理适配器，但对我来说，我还看到了我的Cisco Systems VPN Adapter for 64-bit Windows，我不会将其描述为物理适配器。

【讨论】：

感谢您的回答。它工作正常。关于你对它是一个糟糕的选择的评论，我同意。但我们只需要一种简单快速的方法来阻止该工具的不当使用。由于只会分发少量副本，因此我们认为（目前）就足够了。
@Alex，但是如何只获取“活动”网络的 MAC 地址？
希望这还不算太晚@SahilMittal，可以通过检查Win32_NetworkAdapter from MSDN 上的其他属性来确定活动的，寻找 NetConnectionStatus = 2 + Speed不为 null 且 > 0，如果有线、wifi 连接、移动网络都连接，则必须根据 AdapterType 选择一个。