Ejemplo de desencadenador de hora (scripting)

En este ejemplo de scripting se muestra cómo crear una tarea que ejecuta el Bloc de notas en un momento específico. La tarea contiene un desencadenador basado en tiempo que especifica un límite de inicio para activar la tarea, una acción ejecutable que ejecuta el Bloc de notas y un límite final que desactiva la tarea.

En el procedimiento siguiente se describe cómo programar una tarea para iniciar un archivo ejecutable en un momento específico.

Para programar el Bloc de notas para que se inicie a una hora específica

1. Cree un objeto TaskService . Este objeto permite crear la tarea en una carpeta especificada.
2. Obtenga una carpeta de tareas y cree una tarea. Utilice el método TaskService.GetFolder para obtener la carpeta donde se almacena la tarea y el método TaskService.NewTask para crear el objeto TaskDefinition que representa la tarea.
3. Defina información sobre la tarea mediante el objeto TaskDefinition . Utilice la propiedad TaskDefinition.Settings para definir la configuración que determina cómo el servicio Programador de tareas realiza la tarea y la propiedad TaskDefinition.RegistrationInfo para definir la información que describe la tarea.
4. Cree un desencadenador basado en tiempo mediante la propiedad TaskDefinition.Triggers . Esta propiedad proporciona acceso al objeto TriggerCollection . Use el método TriggerCollection.Create (especificando el tipo de desencadenador que desea crear) para crear un desencadenador basado en tiempo. Al crear el desencadenador, establezca el límite inicial y el límite final del desencadenador para activar y desactivar el desencadenador. El límite de inicio especifica cuándo se realizará la acción de la tarea.
5. Cree una acción para que la tarea se ejecute mediante la propiedad TaskDefinition.Actions . Esta propiedad proporciona acceso al objeto ActionCollection . Use el método ActionCollection.Create para especificar el tipo de acción que desea crear. En este ejemplo se usa un objeto ExecAction , que representa una acción que ejecuta una operación de línea de comandos.
6. Registre la tarea mediante el método TaskFolder.RegisterTaskDefinition . En este ejemplo, la tarea iniciará el Bloc de notas en la hora actual más 30 segundos.

En el siguiente ejemplo de VBScript se muestra cómo programar una tarea para ejecutar el Bloc de notas 30 segundos después de registrar la tarea.

'------------------------------------------------------------------
' 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

Temas relacionados

Uso del Programador de tareas