【VB】Network AdapterのMacAddress取得

Network AdapterのMacAddress取得

成人になると、自分の道を行くこと。 - 2017/03/18(DOJEUN)

I couldn't pass it up.(断れなかったんだ／逃す訳にはいかなかった)

Dim obj, objs
Dim MACAddress As String
Set objs = GetObject("winmgmts:").ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE MACAddress Is Not NULL")

For Each obj In objs
    MACAddress = obj.MACAddress
Next obj

以前コンテンツ：【VB】PUT GET コマンドの基本コード