使用VB.NET獲取MAC地址2010

我試圖通過使用VB.NET中的下面的函數獲取機器上每個網絡接口卡的MAC address，但我剛剛意識到這個函數在Windows中不起作用 XP ：使用VB.NET獲取MAC地址2010

Function getMacAddress() 
     Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces() 
     Return nics(1).GetPhysicalAddress.ToString 
    End Function

如何讓此代碼在Windows XP上運行？有什麼其他替代方法可以獲得Windows上的MAC地址列表 XP？

來源

2012-10-23 Ali

也許你沒有安裝正確的.Net框架？ – Yohannes

謝謝，我已經改變了nics（1）到nics（0）,,它現在的作品 – Ali

適用於XP，除了我有幾個接口，我的第一個（第0個）是我的「真實」MAC地址，它對應於非.NET程序報告的MAC地址。

來源

2012-10-23 09:55:42

當連接到不同的VPN時，我做了一些挖掘。到目前爲止，下面看起來非常可靠。在上面建議的實際物理適配器依賴於0或1在許多情況下不起作用。在某些情況下，我的實際以太網適配器是第三個適配器排除環回，隧道和ppp適配器應縮小範圍。我發現很多非物理適配器都將字符串「00000000000000E0」作爲mac地址。

Private Function getMacAddress() As String 
    Try 
     Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() 
     Dim adapter As NetworkInterface 
     Dim myMac As String = String.Empty 

     For Each adapter In adapters 
      Select Case adapter.NetworkInterfaceType 
       'Exclude Tunnels, Loopbacks and PPP 
       Case NetworkInterfaceType.Tunnel, NetworkInterfaceType.Loopback, NetworkInterfaceType.Ppp 
       Case Else 
        If Not adapter.GetPhysicalAddress.ToString = String.Empty And Not adapter.GetPhysicalAddress.ToString = "00000000000000E0" Then 
         myMac = adapter.GetPhysicalAddress.ToString 
         Exit For ' Got a mac so exit for 
        End If 

      End Select 
     Next adapter 

     Return myMac 
    Catch ex As Exception 
     Return String.Empty 
    End Try 
End Function

來源

2014-02-10 16:56:08 jhersey29

使用VB.NET獲取MAC地址2010

回答

相關問題