Exempel på veckoutlösare (skript)

Det här skriptexemplet visar hur du skapar en uppgift som kör Anteckningar kl. 08:00 på måndag varje vecka. Uppgiften innehåller en daglig utlösare som anger när aktiviteten körs och en körbar åtgärd som kör Anteckningar.

Följande procedur beskriver hur du schemalägger en aktivitet för att starta en körbar fil kl. 08:00 på måndag varje vecka.

Så här schemalägger du Anteckningar så att det börjar kl. 08:00 på måndagar i varje vecka

1. Skapa ett TaskService- objekt. Med det här objektet kan du skapa uppgiften i en angiven mapp.

2. Hämta en uppgiftsmapp och skapa en uppgift. Använd metoden TaskService.GetFolder för att hämta mappen där uppgiften lagras och metoden TaskService.NewTask för att skapa TaskDefinition objekt som representerar aktiviteten.

3. Definiera information om aktiviteten med hjälp av objektet TaskDefinition. Använd egenskapen TaskDefinition.Settings för att definiera de inställningar som avgör hur tjänsten Schemaläggaren utför uppgiften och egenskapen TaskDefinition.RegistrationInfo för att definiera den information som beskriver uppgiften.

4. Skapa en veckoutlösare med egenskapen TaskDefinition.Triggers. Den här egenskapen ger åtkomst till TriggerCollection objekt som används för att skapa utlösaren.

   Använd metoden TriggerCollection.Create (ange vilken typ av utlösare du vill skapa) för att skapa en veckoutlösare.

   Ange egenskapen WeeklyTrigger.StartBoundary för att ange när utlösaren ska aktiveras och den tid på dagen då aktiviteten körs. I det här exemplet aktiveras utlösaren den 1 januari 2005 och aktiviteten körs kl. 08:00.

   Ange egenskapen WeeklyTrigger.EndBoundaryför att ange när utlösaren ska inaktiveras. I det här exemplet inaktiveras utlösaren den 1 januari 2015.

   Ange egenskapen WeeklyTrigger.DaysOfWeek för att ange de veckodagar som aktiviteten körs på. I det här exemplet körs aktiviteten på måndag.

   Ange egenskapen WeeklyTrigger.WeeksIntervalför att ange intervallet mellan veckorna i schemat. I det här exemplet körs aktiviteten varje vecka.

5. Skapa en åtgärd för uppgiften som ska köras med hjälp av egenskapen TaskDefinition.Actions. Den här egenskapen ger åtkomst till ActionCollection objekt som används för att skapa åtgärden. Använd metoden ActionCollection.Create för att ange vilken typ av åtgärd du vill skapa. I det här exemplet används ett ExecAction- objekt som representerar en åtgärd som kör en kommandoradsåtgärd.

6. Registrera uppgiften med hjälp av metoden TaskFolder.RegisterTaskDefinition. I det här exemplet startar aktiviteten Anteckningar kl. 08:00 på måndag i varje vecka.

I följande VBScript-exempel visas hur du schemalägger en uppgift för att köra Anteckningar varje dag kl. 08:00.

'------------------------------------------------------------------
' This sample schedules a task to start on a weekly basis.
'------------------------------------------------------------------

' A constant that specifies a weekly trigger.
const TriggerTypeWeekly = 3
' A constant that specifies an executable action.
const ActionTypeExec = 0   


'********************************************************
' Create the TaskService object.
Set service = CreateObject("Schedule.Service")
call service.Connect()

'********************************************************
' Get a folder to create a task definition in. 
Dim rootFolder
Set rootFolder = service.GetFolder("\")

' The taskDefinition variable is the TaskDefinition object.
Dim taskDefinition
' The flags parameter is 0 because it is not supported.
Set taskDefinition = service.NewTask(0) 

'********************************************************
' Define information about the task.

' Set the registration info for the task by 
' creating the RegistrationInfo object.
Dim regInfo
Set regInfo = taskDefinition.RegistrationInfo
regInfo.Description = "Start Notepad weekly."
regInfo.Author = "Administrator"

' Set the task setting info for the Task Scheduler by
' creating a TaskSettings object.
Dim settings
Set settings = taskDefinition.Settings
settings.Enabled = True
settings.StartWhenAvailable = True
settings.Hidden = False

'********************************************************
' Create a weekly trigger. Note that the start boundary 
' specifies the time of day that the task starts, the 
' day-of-week specfies on what day of the week the task 
' runs, and the interval specifies what weeks the task runs.
Dim triggers
Set triggers = taskDefinition.Triggers

Dim trigger
Set trigger = triggers.Create(TriggerTypeWeekly)

' Trigger variables that define when the trigger is active 
' and the time of day that the task is run. The format of 
' this tims is YYYY-MM-DDTHH:MM:SS
Dim startTime, endTime

Dim time
startTime = "2006-05-02T08:00:00"  'Task runs at 8:00 AM
endTime = "2015-05-02T08:00:00"

WScript.Echo "startTime :" & startTime
WScript.Echo "endTime :" & endTime

trigger.StartBoundary = startTime
trigger.EndBoundary = endTime
trigger.DaysOfWeek = 1
trigger.WeeksInterval = 1    'Task runs every week.
trigger.Id = "WeeklyTriggerId"
trigger.Enabled = True

'***********************************************************
' Create the action for the task to execute.

' Add an action to the task to run notepad.exe.
Dim Action
Set Action = taskDefinition.Actions.Create( ActionTypeExec )
Action.Path = "C:\Windows\System32\notepad.exe"

WScript.Echo "Task definition created. About to submit the task..."

'***********************************************************
' Register (create) the task.

call rootFolder.RegisterTaskDefinition( _
    "Test Weekly Trigger", taskDefinition, 6, , , 3)

WScript.Echo "Task submitted."

Relaterade ämnen

Använda schemaläggarens