VB.NETでMACアドレスを取得するには (ID:77997)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

以下のコードをフォームに貼り付けて実行してみて下さい。
欲しい情報が得られると思います。

Imports System
Imports System.Management
' 参照も、System.Managementにお忘れなく！

Private Sub EnumNetworkAdapters()

Dim query As ManagementObjectSearcher
    Dim queryCollection As ManagementObjectCollection
    Dim mo As ManagementObject
    Dim s As String

query = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress is not null")
    queryCollection = query.Get()

For Each mo In queryCollection
        Debug.WriteLine(mo.ClassPath)
        Debug.WriteLine(mo.Options)
        Debug.WriteLine("Index         =" + String.Format("{0:0}", mo("Index")))
        Debug.WriteLine("Description   =" + mo("Description"))
        Debug.WriteLine("MacAddress    =" + mo("MacAddress"))
        If (CType(mo("IPEnabled"), Boolean) = True) Then
            Dim addresses() As String = CType(mo("IPAddress"), String())
            Dim subnets() As String = CType(mo("IPSubnet"), String())

Debug.WriteLine("DNS Host      =" + mo("DNSHostName"))
            Debug.WriteLine("DNS Domain    =" + mo("DNSDomain"))
            For Each s In addresses
                Debug.WriteLine("IP Address    =" + s)
            Next
            For Each s In subnets
                Debug.WriteLine("IP Subnet     =" + s)
            Next
        End If
    Next
End Sub

以上。

←解決時は質問者本人がここをチェックしてください。

戻る