Serial numbers from Monitors

Question

I can get the serial numbers from all attached monitors with the Powershell command:

get-wmiobject wmimonitorid -namespace root\wmi|foreach-object{($_.SerialnumberID|foreach-object{[char]$_}) -join „“}

Is it possible to do this with VBA?

My intention is to add the serial numbers to Excel (one serial number per cell).

Answer 1

you will need to add WMI scripting library to the references

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

You can change debug.print to add to certain cells instead, by using Dim s as String and s = s + chr(c);