Automate Scheduler Using Macros

Chapter 3: ObjectsApplication ObjectDescriptionAn object providing access to various Scheduler collections, methodsand properties, and containing basic information about the OLE serverenvironment.DiscussionYou create an Application object to start Scheduler from within an OLEautomation script. Create the Scheduler Application object using the Dimcommand to create an object variable and then set it equal to thereference returned by the CreateObject function.ExampleThis example returns a list of all completed tasks, including any witherrors, and displays them in a message box.Sub Main()Dim objSchedApp As ObjectDim objCompletedTasks As ObjectDim objCompletedTask As ObjectDim intCounter As IntegerDim strListOfTasks As StringDim strErrors As StringSet objSchedApp = CreateObject("Cognosbatcher.Application")'get a reference to all tasks that have been completedSet objCompletedTasks = _objSchedApp.Completed strListOfTasks = ""For intCounter = 1 To objCompletedTasks.CountIf objCompletedTasks.Item(intCounter).HasErrors ThenstrErrors = " -> Error"ElsestrErrors = ""End IfSet objCompletedTask = _objCompletedTasks.Item(intCounter).SchedulestrListOfTasks = strListOfTasks & _objCompletedTask.ScheduleDescription strErrors & Chr(13)Next intCounterMsgBox("There are " & Str(objCompletedTasks.Count) & _"completed tasks:" & Chr(13) & strListOfTasks)Set objCompletedTask = NothingSet objCompletedTasks = NothingSet objSchedApp = NothingEnd SubMethod NameVisibleMutuallyExclusiveDescriptionSets the Scheduler main window tovisible.Notifies Scheduler that Impromptu isbeing automated.10 Automate Scheduler Using Macros