vbscript - VBScript を使用して Mac アドレスを取得する

Question

私が書いている Excel (Windows 用) アプリケーションに基本レベルの保護を加えようとしています。マシンの MAC アドレスを使用してライセンス ファイルを生成することを考えていました。私の質問は、VBScript を使用して Mac アドレスを取得するにはどうすればよいですか?

Answer 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 は適切な選択ではない可能性があります。コンピュータを一意に識別する良い方法は何ですか? .

これにより、すべての物理アダプターが返されますが、私にとっては、Cisco Systems VPN Adapter for 64-bit Windows物理的とは言えないものも表示されます。