Set sys = CreateObject("UltraMon.System")
msg = ""
For Each mon In sys.Monitors
	msg = msg & "Monitor " & mon.ID & ":" & vbNewline
	If mon.Primary = True Then
		msg = msg & "primary"
	ElseIf mon.Enabled = True Then
		msg = msg & "enabled"
	Else
		msg = msg & "disabled"
	End If
	
	If mon.Enabled = True Then
		msg = msg & ", " & mon.Width & "x" & mon.Height & " @ " & mon.Left & "," & mon.Top & ", " & mon.RefreshRate & " Hz"
		msg = msg & vbNewline & "Resolutions: "
		For Each dm In mon.DisplayModes
			msg = msg & dm.Width & "x" & dm.Height & ", "
		Next
		msg = Left(msg, Len(msg) - 2)
	End If
	
	msg = msg & vbNewline & vbNewline
Next

MsgBox msg,, WScript.ScriptName