Registering a Trigger
Dim mgRoot
Dim objSchedulerClient
Dim mgobjScheduling
Dim mgobjScheduledTrigger
Dim mgobjScheduledJob
Set mgRoot = GetRoot()
' Get the SchedulerClient API object
Set objSchedulerClient = mgRoot.SchedulerClient
' Allocate a "System Trigger" MegaObject to be configured
Set mgobjScheduledTrigger = objSchedulerClient.NewTrigger()
' Get the Scheduling and "System Job" MegaObject to be configured
Set mgobjScheduling = mgobjScheduledTrigger.GetCollection("~e)PMRueCFbLR[Scheduling]").Item(1)
Set mgobjScheduledJob = mgobjScheduledTrigger.GetCollection("~pWuUJAATF5mD[System Job]").Item(1)
' Configure the Scheduling
mgobjScheduling.SetProp "~azPMryeCFfRR[Scheduling.IsRelative]", "A"
mgobjScheduling.SetProp "~h)PMS5fCFTXR[Scheduling.RepeatKind]", "S"
' Set the start at Now + 30 seconds
mgobjScheduling.SetProp "~CaW0Vl0PG1pC[Scheduling.Start.AbsDateTime]", DateAdd("s",30,Now)
' Configure the System Job (with dumy macro and contextstring, just for example)
mgobjScheduledJob.GetProp("~210000000900[Name]") = "My Job"
mgobjScheduledJob.GetProp("~MXuU7x9TFLlD[Implementation Macro]") = "~oHDN0jc0I1p4[My Macro]"
mgobjScheduledJob.CallMethod "~zdj0fUG4GXRM[SetContextString]", "my informations"
' Register the System Trigger into the Scheduler instance
objSchedulerClient.AddTrigger mgobjScheduledTrigger, "UPDATEMODE=TRANSACTIONAL"