Es ist wertvoll zu wissen, wie die Media Access Control (MAC) -Adresse mit Visual Basic für Applikationen (VBA ), wenn Sie die Einrichtung mehrere Adapter kontrollieren . Jeder Adapter hat eine permanente eindeutige Identifikationsnummer als MAC-Adresse bezeichnet . Die MAC-Adresse wird verwendet, um den Adapter in einem Computer-Netzwerk zu identifizieren. Die Anzahl beträgt 12 Zeichen , mit beiden Zahlen und Buchstaben , getrennt durch Bindestriche oder Doppelpunkte . Sie können ganz einfach überprüfen Sie die MAC-Adresse , indem Sie eine einfache Funktion mit VBA . Anleitung
1
Öffnen Sie Microsoft Excel 2007 und Typ "Function getmacaddress ()" und drücken Sie "Enter ", um eine neue Funktion zu erstellen.
2
Type " Dim objVMI As Object
Dim vAdptr As Variant Dim
objAdptr As Object Dim
adptrCnt As Long ", um Ihre Variablen zu erstellen.
3
Typ "Set objVMI = GetObject ( " winmgmts : . \\ \\ "&" "&" \\ root \\ cimv2 " ) ( SELECT * FROM Win32_NetworkAdapterConfiguration WHERE = True IPEnabled " ) " zu
vAdptr = objVMI.ExecQuery Set" definieren Sie Ihre Adapter-Objekte .
4
Type " For Each objAdptr In vAdptr
If Not IsNull ( objAdptr.MACAddress ) Und IsArray ( objAdptr.IPAddress ) Dann
Für adptrCnt = 0 To UBound ( objAdptr.IPAddress )
If Not objAdptr.IPAddress ( adptrCnt ) = "0.0.0.0" Dann
GetNetworkConnectionMACAddress = objAdptr.MACAddress
Ausfahrt Für
End If Next
adptrCnt
MsgBox " Ihre MAC-Adresse ist :" & GetNetworkConnectionMACAddress
End If
Weiter ", um Schleife durch die Netzwerkadapter in Ihrem System und erhalten Sie Ihre MAC-Adresse.
5
Typ " End Function ", wenn notwendig und führen Sie Ihre Funktion . Sie erhalten eine Nachricht mit Ihrer MAC-Adresse zu sehen.
