Hallo,
ich habe eine Lösung gefunden:
Sub getMonitors()
Dim m As SWbemObject
Dim c
For Each m In GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\WMI").ExecQuery _
("SELECT SerialNumberID FROM WmiMonitorID")
For Each c In m.serialNumberID
Debug.Print Chr(c);
Next
Debug.Print
Next
End Sub
Quelle: https://stackoverflow.com/questions/72171289/serialnumbers-from-monitors-into-a-excel-sheet
Gruß
|