vb.net 获取网卡MAC

在VB.NET中，获取计算机上网络适配器（网卡）的MAC地址通常通过.Net Framework提供的System.Management命名空间中的ManagementClass和ManagementProperty类来实现。以下是一个简单的示例：

Imports System
Imports System.Management

Module Module1
    Sub Main()
        Dim macAddress As String = GetMacAddress()
        Console.WriteLine("Network card MAC address: " & macAddress)
        Console.ReadLine()
    End Sub

    Function GetMacAddress() As String
        Dim query As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
        For Each adapter In query.Get()
            If Not String.IsNullOrEmpty(adapter.Properties("MACAddress").Value.ToString()) Then
                Return adapter.Properties("MACAddress").Value.ToString()
            End If
        Next
        ' 如果找不到有IP配置的网卡，返回空字符串
        Return ""
    End Function
End Module

这个示例会搜索所有启用IP地址的网络适配器，并从每个适配器的属性中查找MACAddress。记得运行此程序需要管理员权限，因为访问系统信息通常需要。