Automate Scheduler Using Macros

Chapter 6: PropertiesExampleThis example displays all scheduled tasks and enables the user to createnew copies of them.Sub Main()Dim objSchedApp As ObjectDim objScheduledTasks As ObjectDim objNewTask As ObjectDim intCounter As IntegerDim intResponse As IntegerDim strTaskDescription As StringDim strTaskID as StringSet objSchedApp = CreateObject("CognosBatcher.Application")Set objScheduledTasks = objSchedApp.SchedulesFor intCounter = 1 to objScheduledTasks.CountstrTaskID = objScheduledTasks.Item(intCounter).ScheduleIDintResponse = MsgBox("Do you wish to create a new task " & _"based on thisone?" & _Chr(13) & "Task ID: " & strTaskID & _Chr(13) "Description: " & _objScheduledTasks.Item(intCounter).ScheduleDescription, _292, "Replicate this task?")If intResponse = 6 ThenSet objNewTask = CreateObject("CognosBatcher.Schedule")With objNewTask.CreateUsing (intCounter).RunAtHour = Val(InputBox("Enter the execution hour in "&_"24 hour format","Execution Time")).RunAtMin = Val(InputBox("Enter the execution minute "&_"format", "Execution Time")).EffectiveFrom = Date.SaveEnd WithSet objNewTask = NothingEnd IfNext intCounterSet objNewTask = NothingSet objScheduledTasks = NothingSet objSchedApp = NothingEnd SubAutomate Scheduler Using Macros 127