Const DELAY_MINUTES = 10 Wscript.Sleep DELAY_MINUTES * 60000 Do CreateObject("Wscript.Shell").SendKeys "+" Wscript.Sleep DELAY_MINUTES * 60000 Loop