サンプルコード
Sub ListTasks()
Dim ts As Object
Set ts = CreateObject("Schedule.Service")
ts.Connect
Dim rootFolder As Object
Set rootFolder = ts.GetFolder("\")
Dim task As Object
For Each task In rootFolder.GetTasks(0)
Debug.Print "Task Name: " & task.Name
Debug.Print "Task Path: " & task.Path
Dim action As Object
For Each action In task.Definition.Actions
Debug.Print "Action: " & action.Path
Next action
Dim trigger As Object
For Each trigger In task.Definition.Triggers
Debug.Print "Trigger Type: " & trigger.Type
If trigger.Type = 3 Then
Debug.Print "Trigger Start Time: " & trigger.StartBoundary
Debug.Print "Trigger Days: " & trigger.DaysOfWeek
Debug.Print "Trigger Interval: " & trigger.Interval
Debug.Print "Trigger Duration: " & trigger.ExecutionTimeLimit
End If
Next trigger
Debug.Print "-------------------------"
Next task
End Sub