VB.NET获取MAC地址

可以使用以下代码获取VB.NET中的MAC地址：

Imports System.Net.NetworkInformation

Public Function GetMacAddress() As String
    Dim mac As String = ""
    Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
    For Each adapter In nics
        If mac = "" Then
            Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
            mac = adapter.GetPhysicalAddress().ToString()
        End If
    Next
    Return mac
End Function

这个函数将返回计算机的第一个网络适配器的MAC地址。如果计算机有多个网络适配器，则需要相应地修改代码来获取所需的适配器的MAC地址。

相关问题

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。记得运行此程序需要管理员权限，因为访问系统信息通常需要。

VB.NET 获取多张网卡MAC

在VB.NET中，获取计算机上所有网络适配器（包括多张网卡）的MAC地址，你可以使用`ManagementObjectSearcher`类配合`.NET`框架中的`ManagementClass`和`ManagementBaseObject`。以下是一个简单的示例：

Imports System.Management

Public Function GetAllNetworkAdapterMacAddresses() As List(Of String)
    Dim macAddresses As New List(Of String)
    ' 创建ManagementObjectSearcher实例，查询所有名为"Win32_NetworkAdapterConfiguration"的对象
    Dim query As String = "SELECT MACAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
    Using searcher As ManagementObjectSearcher = New ManagementObjectSearcher(query)
        ' 遍历找到的所有适配器
        For Each adapter In searcher.Get()
            Try
                ' 获取MAC地址属性值
                Dim mac As String = adapter.Properties("MACAddress").Value.ToString()
                macAddresses.Add(mac)
            Catch ex As Exception
                ' 捕获并忽略错误
                Console.WriteLine($"Error fetching MAC address for {adapter.Name}: {ex.Message}")
            End Try
        Next
    End Using
    Return macAddresses
End Function

当你调用此函数时，它会返回一个包含所有活动网络适配器MAC地址的列表。