Const WND_TITLE = "Untitled - Notepad" 'title of the window that should be mirrored
Const MIRRORMON_EXE = "%ProgramFiles%\UltraMon\MirrorMon.exe" 'location of MirrorMon.exe
Const MONITOR = 2 'monitor on which MirrorMon should run
Const OPTIONS = "m" 'options for MirrorMon window: m = maximized, f = fullscreen

Set wnd = CreateObject("UltraMon.Window")
If wnd.Find(WND_TITLE, "", 1, 0, 0) = True Then
	Set sh = CreateObject("WScript.Shell")
	cmd = """" & MIRRORMON_EXE & """ /s 0 " & wnd.HWnd & " /m " & MONITOR & "," & OPTIONS
	sh.Run cmd
Else
	MsgBox "Couldn't find window """ & WND_TITLE & """.",, WScript.ScriptName
End If