Ich möchte für einen Kopierschutz gerne die MAC-Adresse via Makro auslesen. Wer hat da eine Idee oder schon einen Code?
Grüße,
Herbert
Function GetMACAdresse() As String
Dim StrComputer As String
Dim objWMIService As ISWbemServices
Dim objWIMSet As ISWbemObjectSet
Dim objWMI As ISWbemObject
StrComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
Set objWIMSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
For Each objWMI In objWIMSet
If objWMI.Properties_("IPConnectionMetric") = 1 Then
GetMACAdresse = objWMI.Properties_("MACAddress").Value
Exit Function
End If
Next objWMI
End Function
Sub read_it()
Dim objWMIService As Object, objItem As Object, colItems As Object
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem In colItems
MsgBox "Caption: " & objItem.Caption & Chr(10) & _
"MAC Address: " & objItem.MACAddress
Next
End Sub
Um die MAC-Adresse der Netzwerkkarte über Excel auszulesen, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Excel öffnen: Starte Microsoft Excel (ab Version 2000).
VBA-Editor öffnen: Drücke ALT + F11
, um den VBA-Editor zu öffnen.
Modul hinzufügen: Klicke im Menü auf Einfügen
> Modul
.
Code einfügen: Kopiere den folgenden VBA-Code in das Modul:
Sub read_it()
Dim objWMIService As Object, objItem As Object, colItems As Object
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem In colItems
MsgBox "Caption: " & objItem.Caption & Chr(10) & _
"MAC Address: " & objItem.MACAddress
Next
End Sub
Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8
, wähle read_it
aus und klicke auf Ausführen
.
Jetzt wird ein Fenster angezeigt, das die MAC-Adresse Deiner Netzwerkkarte zeigt.
Falls das Auslesen der MAC-Adresse über VBA nicht funktioniert, kannst Du auch die Eingabeaufforderung verwenden:
getmac /FO CSV /NH
.Hier sind einige Beispiele, wie Du die MAC-Adresse in Excel weiterverarbeiten kannst:
Umwandeln in ein anderes Format: Wenn Du die MAC-Adresse umrechnen oder umwandeln möchtest, kannst Du die Ausgabe in Excel weiterverarbeiten. Zum Beispiel:
=TEXT(A1, "00-00-00-00-00-00")
Anzeige in einer Tabelle: Du kannst die MAC-Adressen in eine Tabelle einfügen, um sie leichter zu verwalten, indem Du die Daten aus der CMD-Ausgabe importierst.
1. Wie kann ich die MAC-Adresse in Excel formatieren?
Du kannst die Excel-Funktion TEXT
verwenden, um die MAC-Adresse in das gewünschte Format zu bringen.
2. Funktioniert das Auslesen der MAC-Adresse auch auf Windows 10?
Ja, jedoch könnte es erforderlich sein, die Methode leicht anzupassen oder eine alternative Methode wie die CMD zu verwenden.
3. Kann ich die MAC-Adresse direkt in eine Zelle schreiben?
Ja, indem Du den Code anpasst, kannst Du die MAC-Adresse direkt in eine bestimmte Zelle Deiner Excel-Tabelle schreiben.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen