VBA Windows8 MACアドレス取得

質問

Windows7(32bit)の場合、次のコードでMACアドレスを取得できたのですが、
Windows8(64bit)の場合は失敗…ご教授宜しくお願い致します。
'マックアドレス:最初の1個だけ調べる。
Sub MacAddress()
Dim oNetwork As Object
Dim wNetworkSql As String
wNetworkSql = "Select * From Win32_NetworkAdapter Where MACAddress Is Not Null"
For Each oNetwork In GetObject("winmgmts:").ExecQuery(wNetworkSql)
MsgBox oNetwork.MacAddress
Exit For
Next
End Sub

回答No.2

いけだ ひろし（@ike-2000）

#1です。

現在、Windows8x64の環境を持っていません。
ですので、Windows8x64では、そうかもしれないとしか言えませんね。

ipconfig /allなら取れるのではないでしょうか。結果をテキストファイルにでも書き込んで解析するとか。

または、Win32APIですかね。GetAdaptersInfoとかだったと思います。

回答No.1

いけだ ひろし（@ike-2000）

Windows8.1x64ではうまくいくみたいですね。

私の経験では、Windows8x64のUEFIではパフォーマンスモニタ関係がグチャグチャで未実装の機能が多かったです。
そんな感じで当該問題もその可能性がありますね。

WIndows8.1x64ではまじめに実装されています(私が知る範囲で)。

補足

早々のご回答有難うございます。
確認、Windows8x64の場合は、MACアドレスを取得できないという事でしょうか？