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