Wie Sie ein VBA verwenden, um eine Mac-Adresse zu finden

Es ist wertvoll zu wissen, wie Sie die Media Access Control (MAC) Adresse mit Visual Basic für Applikationen (VBA), wenn Sie mehrere Adapter einrichten. Jeder Adapter hat eine permanente eindeutige Identifikation Nummer bekannt als eine MAC-Adresse. Die MAC-Adresse wird verwendet, um den Adapter in einem Computernetzwerk zu identifizieren. Die Zahl ist 12 Zeichen, mit Zahlen und Buchstaben, getrennt durch Bindestriche oder Doppelpunkte. Sie können die MAC-Adresse leicht überprüfen, indem Sie eine einfache Funktion mit VBA erstellen.

Anweisungen

1 Öffnen Sie Microsoft Excel 2007 und geben Sie "Funktion GetMACAddress()" und drücken Sie "Enter" erstellen Sie eine neue Funktion.

2 Geben Sie "Dim ObjVMI als Objekt

Dim vAdptr As Variant

Dim ObjAdptr As Object

Dim AdptrCnt so lange"um Ihre Variablen zu erstellen.

3 Typ "Set ObjVMI = GetObject (" Winmgmts: \ "&". "&" \root\cimv2 "\root\cimv2")

Set vAdptr = objVMI.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration wo IPEnabled = True" True")" to define your adapter objects "um Ihre Adapterobjekte zu definieren.

4 Typ "für jede ObjAdptr In vAdptr

If Not IsNull(objAdptr.MACAddress) And IsArray(objAdptr.IPAddress) Then

For adptrCnt = 0 To UBound(objAdptr.IPAddress)

If Not objAdptr.IPAddress(adptrCnt) = "0.0.0.0" Then

GetNetworkConnectionMACAddress = objAdptr.MACAddress

Exit For

End If

Next adptrCnt

MsgBox "Your MAC Address is: " & GetNetworkConnectionMACAddress

End If

Nächsten"zu durchlaufen die Netzwerkadapter in Ihrem System und Ihrer MAC-Adresse zu erhalten.

5 Geben Sie ggf. "End Function" und führen Sie Ihre Funktion. Sie sehen eine Nachricht mit Ihrer MAC-Adresse.

Tipps & Warnungen

• Die Funktion sollte wie folgt aussehen:
• "Funktion GetMACAddress()
• Dim ObjVMI As Object
• Dim vAdptr As Variant
• Dim ObjAdptr As Object
• Dim AdptrCnt As Long
• Set ObjVMI = GetObject ("Winmgmts: \\"&"." & "\root\cimv2")
• Set vAdptr = objVMI.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration wo IPEnabled = True")
• Für jede ObjAdptr In vAdptr
• Wenn nicht IsNull(objAdptr.MACAddress) und dann IsArray(objAdptr.IPAddress)
• Für AdptrCnt = 0 To UBound(objAdptr.IPAddress)
• Wenn nicht objAdptr.IPAddress(adptrCnt) = "0.0.0.0" Then
• GetNetworkConnectionMACAddress = objAdptr.MACAddress
• Ausfahrt nach
• EndIf
• Nächste adptrCnt
• MsgBox "Ihre MAC-Adresse ist:" & GetNetworkConnectionMACAddress
• EndIf
• Nächste
• EndFunction"