MACアドレスを調べる

＜分類：値取得＞
＜使用例：IPアドレス別にMACアドレスを調べる＞
＜プログラム例＞

Sub 共通_MACアドレス調査()
    Dim objConf, objMACEna, strIP
  
    Set objConf = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where (IPEnabled = TRUE)")

    For Each objMACEna In objConf
        
        For Each strIP In objMACEna.IPAddress
            MsgBox ("IPｱﾄﾞﾚｽ(" & strIP & ")のMACｱﾄﾞﾚｽは(" & objMACEna.MACAddress & ")です")
            Exit For
        Next
           
    Next
End Sub