Const DEST_MON = 2 'number of the monitor the applications should get moved to, zero to move them to the monitor with the mouse
Const ONLY_MOVE_ONCE = True 'if True, each window only gets moved once, otherwise windows get moved everytime they're on a monitor other than DEST_MON
Const RESIZE_TO_FIT = True 'if True, the application window will only get resized if necessary, otherwise it will get resized proportionally
Const INTERVAL = 3 'number of seconds the script waits before enumerating running applications again

Set sys = CreateObject("UltraMon.System")
Set wnd = CreateObject("UltraMon.Window")
wndChangeFlags = 2
If RESIZE_TO_FIT = True Then wndChangeFlags = wndChangeFlags + 1

'create the two maps used to store positioned windows if ONLY_MOVE_ONCE is true
Set arrAdd = CreateObject("Scripting.Dictionary")
Set arrLookup = CreateObject("Scripting.Dictionary")

Do While True
	monDest = DEST_MON
	If monDest = 0 Then
		'get the monitor the mouse is on
		mouseX = sys.CursorPosX
		mouseY = sys.CursorPosY
		For Each mon In sys.Monitors
			If mon.Enabled = True Then
				If mouseX >= mon.Left And mouseX <= mon.Left + mon.Width And mouseY >= mon.Top And mouseY <= mon.Top + mon.Height Then
					monDest = mon.ID
					Exit For
				End If
			End If
		Next
	End If

	'enumerate all application windows
	For Each w In wnd.GetAppWindows(false)
		move = True
		If ONLY_MOVE_ONCE = True Then
			If arrLookup.Exists(w.HWnd) = True Then move = False
			arrAdd.Add w.HWnd, 0
		End If

		If move = True Then
			If w.Monitor <> monDest Then
				w.Monitor = monDest
				w.ApplyChanges wndChangeFlags
			End If
		End If
	Next

	If ONLY_MOVE_ONCE = True Then
		'swap maps, then clear arrAdd. this way we don't have entries for windows which no longer exist
		Set temp = arrLookup
		Set arrLookup = arrAdd
		Set arrAdd = temp
		Set temp = Nothing
		arrAdd.RemoveAll
	End If

	WScript.Sleep INTERVAL * 1000
Loop