Automate Scheduler Using Macros

Chapter 6: PropertiesExampleThis example demonstrates the use of the IgnoreServerTasks andIgnoredSince properties of the Options object.Sub Main()Dim objSchedApp As ObjectDim objOptions As ObjectDim intResponse As IntegerSet objSchedApp = CreateObject("Cognosbatcher.Application")Set objOptions = objSchedApp.OptionsWith objOptions'IgnoreServerTasks is Boolean indicates if Scheduler is'configured to run locally onlyIf .IgnoreServerTasks Then'IgnoredSince is a read only property that indicates the'last time IgnoreServerTasks was set to TRUEintResponse = MsgBox("Scheduler has been configured to "&_"run locally since " & .IgnoredSince & _". Would you like to switch to run using the server? " & _"(NOTE: If you do not have the connector option " & _"installed, Scheduler will always be set to run " & _"locally.)",259,"Run Locally")If intResponse = 6 Then.IgnoreServerTasks = False.SaveEnd IfElseintResponse = MsgBox("Scheduler has been configured to " & _"run using the server. Would you like to switch to " & _"run locally?",259,"Run on the Server")If intResponse = 6 Then.IgnoreServerTasks = True.SaveEnd IfEnd IfEnd WithSet objOptions = NothingSet objSchedApp = NothingEnd SubAutomate Scheduler Using Macros 83