Geting adresse MAC en utilisant VB.NET 2010

J'ai essayé d'obtenir le Adresse MAC de chaque carte d'interface réseau sur un ordinateur en utilisant le ci-dessous en fonction VB.NET, mais je viens de réaliser que cette fonction ne fonctionne pas dans Windows XP:

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

Comment puis-je faire de ce code à exécuter sur Windows XP? Quelles sont les autres alternatives existent pour obtenir la liste des adresses MAC sur Windows XP?

  • Peut-être que vous n'avez pas la bonne .Net framework est installé?
  • merci, j'ai changé de carte réseau(1) de nics(0) ,, il fonctionne maintenant
InformationsquelleAutor Ali | 2012-10-23
  1. 1

    Fonctionne pour moi sous XP, sauf que j'ai un peu d'interfaces et de mon premier (0e) est mon "vrai" adresse MAC, et il correspond à l'adresse MAC signalés par un non-.NET programme.

    InformationsquelleAutor Mark Hurd
  2. 1

    J'ai fait quelques recherches lors de la connexion à différents réseaux privés virtuels. Jusqu'à présent, le ci-dessous semble assez fiable. En s'appuyant sur 0 ou 1 pour la carte physique comme suggéré ci-dessus ne fonctionne pas, dans de nombreux cas. Dans certains cas, mon adaptateur Ethernet était la 3ème carte. À l'exclusion de la loopbacks, des tunnels, et des ppp, des cartes doit le réduire. J'ai trouvé que beaucoup de mes non les cartes physiques ont la chaîne "00000000000000E0", comme l'adresse 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
    InformationsquelleAutor jhersey29