Const MONITOR = 2 'number of the monitor that should be mirrored
Const MIRRORMON_EXE = "%ProgramFiles%\UltraMon\MirrorMon.exe" 'location of MirrorMon.exe
Const POSITION = "100,100" 'position (x and y coordinates) of the MirrorMon window
Const SIZE = "400,300" 'size (width and height) of the MirrorMon window
Const OPTIONS = "" 'options for MirrorMon window: m = maximized, f = fullscreen
Const ZOOM = "100" 'zoom factor in percent

Set sys = CreateObject("UltraMon.System")
Set sh = CreateObject("WScript.Shell")
Set mon = sys.Monitors(CLng(MONITOR) - 1)
cmd = """" & MIRRORMON_EXE & """ /s 1 " & mon.HMonitor & " /w " & POSITION & "," & SIZE & "," & OPTIONS & " /z " & ZOOM
sh.Run cmd