Set sys = CreateObject("UltraMon.System")
Set util = CreateObject("UltraMon.Utility")

msg = sys.Monitors.Count & " monitors, " & sys.NumActiveMonitors & " enabled" & vbNewline
msg = msg & "Desktop: " & sys.DesktopWidth & " x " & sys.DesktopHeight & ", coordinates: " & sys.DesktopLeft & "," & sys.DesktopTop & " - " & sys.DesktopLeft + sys.DesktopWidth & "," & sys.DesktopTop + sys.DesktopHeight & vbNewline
msg = msg & "Hardware profile: " & util.HardwareProfile & vbNewline
msg = msg & "Docked: " & util.Docked & vbNewline

msg = msg & vbNewline
For Each mon In sys.Monitors
	msg = msg & "Monitor " & mon.ID & ": " & mon.Name & " on " & mon.AdapterName & vbNewline
	msg = msg & "Primary = " & mon.Primary & ", enabled = " & mon.Enabled & ", removable = " & mon.Removable & vbNewline
	msg = msg & mon.Width & " x " & mon.Height & "  " & mon.Colordepth & " bpp  position = " & mon.Left & "," & mon.Top & "  refresh rate = " & mon.RefreshRate & " Hz" & vbNewline
	msg = msg & "HMonitor = 0x" & Hex(mon.HMonitor) & vbNewline & vbNewline
Next

MsgBox msg,, WScript.ScriptName