时间触发器示例 (脚本)

  • 项目

此脚本示例演示如何创建在特定时间运行记事本的任务。 该任务包含一个基于时间的触发器，该触发器指定要激活任务的开始边界、一个运行记事本的可执行操作，以及一个停用该任务的结束边界。

以下过程介绍如何计划任务以在特定时间启动可执行文件。

计划记事本在特定时间开始

  1. 创建 TaskService 对象。 此对象允许您在指定的文件夹中创建任务。
  2. 获取任务文件夹并创建任务。 使用 TaskService.GetFolder 方法获取存储任务的文件夹，使用 TaskService.NewTask 方法创建代表该任务的 TaskDefinition 对象。
  3. 使用 TaskDefinition 对象定义有关任务的信息。 使用 TaskDefinition.Settings 属性可以定义确定任务计划程序服务如何执行任务的设置，使用 TaskDefinition.RegistrationInfo 属性定义描述任务的信息。
  4. 使用 TaskDefinition.Triggers 属性创建基于时间的触发器。 此属性提供对 TriggerCollection 对象的访问。 使用 TriggerCollection.Create 方法 (指定要创建的触发器类型，) 创建基于时间的触发器。 创建触发器时，设置触发器的开始边界和结束边界以激活和停用触发器。 开始边界指定何时执行任务操作。
  5. 使用 TaskDefinition.Actions 属性为要执行的任务创建操作。 此属性提供对 ActionCollection 对象的访问。 使用 ActionCollection.Create 方法指定要创建的操作类型。 此示例使用 ExecAction 对象，该对象表示执行命令行操作的操作。
  6. 使用 TaskFolder.RegisterTaskDefinition 方法注册任务。 对于此示例，任务将在当前时间加 30 秒启动记事本。

以下 VBScript 示例演示如何计划任务在注册任务后 30 秒执行记事本。

'------------------------------------------------------------------
' This sample schedules a task to start notepad.exe 30 seconds
' from the time the task is registered.
'------------------------------------------------------------------

' A constant that specifies a time-based trigger.
const TriggerTypeTime = 1
' 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 at a certain time"
regInfo.Author = "Author Name"

'********************************************************
' Set the principal for the task
Dim principal
Set principal = taskDefinition.Principal

' Set the logon type to interactive logon
principal.LogonType = 3


' 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 time-based trigger.
Dim triggers
Set triggers = taskDefinition.Triggers

Dim trigger
Set trigger = triggers.Create(TriggerTypeTime)

' Trigger variables that define when the trigger is active.
Dim startTime, endTime

Dim time
time = DateAdd("s", 30, Now)  'start time = 30 seconds from now
startTime = XmlTime(time)

time = DateAdd("n", 5, Now) 'end time = 5 minutes from now
endTime = XmlTime(time)

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

trigger.StartBoundary = startTime
trigger.EndBoundary = endTime
trigger.ExecutionTimeLimit = "PT5M"    'Five minutes
trigger.Id = "TimeTriggerId"
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 TimeTrigger", taskDefinition, 6, , , 3)

WScript.Echo "Task submitted."



'------------------------------------------------------------------
' Used to get the time for the trigger 
' startBoundary and endBoundary.
' Return the time in the correct format: 
' YYYY-MM-DDTHH:MM:SS. 
'------------------------------------------------------------------
Function XmlTime(t)
    Dim cSecond, cMinute, CHour, cDay, cMonth, cYear
    Dim tTime, tDate

    cSecond = "0" & Second(t)
    cMinute = "0" & Minute(t)
    cHour = "0" & Hour(t)
    cDay = "0" & Day(t)
    cMonth = "0" & Month(t)
    cYear = Year(t)

    tTime = Right(cHour, 2) & ":" & Right(cMinute, 2) & _
        ":" & Right(cSecond, 2)
    tDate = cYear & "-" & Right(cMonth, 2) & "-" & Right(cDay, 2)
    XmlTime = tDate & "T" & tTime 
End Function

使用任务计划程序