Const DELAY = 1 'number of seconds to wait before changing the primary monitor
Const PRIMARY_MON = 2 'number of the monitor that should be set as the new primary monitor after enabling secondary monitors

Set sys = CreateObject("UltraMon.System")
sys.SecondaryEnable

WScript.Sleep DELAY * 1000

sys.Monitors(PRIMARY_MON - 1).Primary = True
sys.ApplyMonitorChanges