Set sys = CreateObject("UltraMon.System")
msg = ""
For Each mon In sys.Monitors
	msg = msg & "Monitor " & mon.ID & ": " & mon.Name & vbNewline & "Serial: " & mon.SerialNumber & vbNewline & "TargetId: " & mon.TargetId & vbNewline & vbNewline
Next
MsgBox msg