Private Sub MonitorID()
Dim a As Integer, strcomputer As String, I As Long, SerialNo As String, ProductId As String
Dim objWMIService As Object, colMonitors As Object, objMonitor As Object
strcomputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\WMI")
Set colMonitors = objWMIService. _
ExecQuery("SELECT * FROM WmiMonitorID")
For Each objMonitor In colMonitors
a = a + 1
SerialNo = ""
For I = 0 To UBound(objMonitor.SerialNumberID)
SerialNo = SerialNo & Chr(objMonitor.SerialNumberID(I))
Next
ProductId = ""
For I = 0 To UBound(objMonitor.UserFriendlyName)
ProductId = ProductId & Chr(objMonitor.UserFriendlyName(I))
Next
Cells(a, 1) = ProductId
Cells(a, 2) = SerialNo
Next
End Sub