VB.NET获取网卡MAC地址的函数

注：网卡的MAC地址是可以在注册表中进行修改的；也可以在网卡的属性中进行修改。
Public Function EnumNetworkAdapters() As String 
        Try 
            Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration") 
            Dim queryCollection As System.Management.ManagementObjectCollection = query.Get() 
            Dim mo As New System.Management.ManagementObject 
            For Each mo In queryCollection 
                If IsDBNull(mo.Item("Description")) = False Then 
            EnumNetworkAdapters &= mo.Item("Description") & "|||"
                End If 
                If IsDBNull(mo.Item("macaddress")) = False Then 
                    If mo.Item("macaddress") <> "" Then  
            EnumNetworkAdapters &= mo.Item("macaddress") & "|||"
                    End If 
                End If 
                If IsDBNull(mo.Item("IPAddress")) = False Then 
                    Dim temp As String 
                    temp = Join(mo.Item("IPAddress"), ".") 
                    If temp <> "" Then 
            EnumNetworkAdapters &= temp & "|||"
                    End If 
                End If 
            Next 
        Catch err A* **ception 
            EnumNetworkAdapters = err.Message & err.StackTrace
    End Try 
End Function