Automate Scheduler Using Macros

Chapter 6: PropertiesExampleThis example demonstrates the ExecuteAt, RunAtHour and RunAtMinproperties of the Options objectSub Main()Dim objSchedApp As ObjectDim objOptions As ObjectDim intResponse As IntegerDim strQualifier As StringSet objSchedApp = CreateObject("Cognosbatcher.Application")Set objOptions = objSchedApp.OptionsWith objOptionsIf .ExecuteAt=2 Then'Scheduler is set to use immediate execution'as the default for new tasksintResponse = msgbox("Scheduler is currently configured "&_"to default new tasks to immediate execution. Do you wish " & _"to change this?",259,"Immediate Execution")If intResponse = 6 Then.ExecuteAt = 7'switch to using the specified time in RunAtHour'and RunAtMin properties of the Options object.RunAtHour = val(inputbox("Type in a new default " & _"execution hour(24 hour clock) for new tasks or press" & _"ENTER to accept the current setting.", _"Default Execution Hour",.RunAtHour)).RunAtMin = val(inputbox("Type in a new default " & _"execution minute for new tasks or press ENTER to " & _"accept the current setting.","Default Execution" & _"Minute",.RunAtMin)).SaveEnd IfElseIf .ExecuteAt = 7 Then'Scheduler is set to use specified time execution'as the default for new tasksintResponse = msgbox("Scheduler is currently configured" & _"to default " & _"new tasks to execution at a specified time. " & _"Do you wish to change this?",259,"Delayed Execution")If intResponse = 6 Then.ExecuteAt = 2'switch to immediate execution as the default'for new tasksEnd IfEnd IfEnd WithSet objOptions = NothingSet objSchedApp = NothingEnd SubAutomate Scheduler Using Macros 67