Automate Scheduler Using Macros

Chapter 6: PropertiesExampleThis example creates a new task which saves the scheduled report into asnapshot.Sub Main()Dim objSchedApp As ObjectDim objScheduledTasks As ObjectDim objNewTask As ObjectSet objSchedApp = CreateObject("CognosBatcher.Application")'ensure that Scheduler has access to Impromtpu automationobjSchedApp.MutuallyExclusive FalseSet objNewTask = CreateObject("CognosBatcher.Schedule")With objNewTask.ScheduleDescription = "My snapshot task".ScheduleName = "C:\Program Files\Cognos\Impromptu 5.0\" & _"Imp.5.0 Samples\Reports\Annual Product Sales.imr".ScheduleType = 0.RunAtHour = 18.RunAtMin = 45.EffectiveFrom = Date'save the report as a snapshot.CreateSnapshot = True'must be a valid path and unique filename.SnapshotFileName = "C:\MyResults\MySnapshot.imr".SaveEnd WithSet objNewTask = NothingSet objSchedApp = NothingEnd SubAutomate Scheduler Using Macros 55