Const MONITOR = 1 'the number of the monitor to which the Windows taskbar should get moved
Const DELAY = 0 'delay before moving Windows taskbar in seconds

Set sh = CreateObject("WScript.Shell")
Set sys = CreateObject("UltraMon.System")
WScript.Sleep DELAY * 1000
Set winTbar = sys.DockedAppBars("Windows Taskbar")
winTbar.Move MONITOR, winTbar.Edge