Hello,
via the powershell command:
get-wmiobject wmimonitorid -namespace root\wmi|foreach-object{($_.SerialnumberID|foreach-object{[char]$_}) -join „“}
is it possible to read all serial numbers of my two connected monitors.
Is there a way to do this via VBA? Preferably so that I can output the 2 serial numbers in two different cells? A simple example script would help me a lot?
Thanks
Check an example:
Dim locator
Set locator = CreateObject("WbemScripting.SWbemLocator")
Dim service
Set service = locator.ConnectServer(".", "root\wmi")
Dim results
Set results = service.ExecQuery("SELECT * FROM WmiMonitorId")
Dim monitor
For Each monitor In results
Dim sn As String
sn = ""
For Each c In monitor.SerialNumberID
sn = sn & Chr(c)
Next
MsgBox "Serial Number: " & sn
Next
If it works, then replace the MsgBox line with cell operations.
2 people are following this question.
