Contoh Pemicu Waktu (Pembuatan Skrip)

Contoh pembuatan skrip ini memperlihatkan cara membuat tugas yang menjalankan Notepad pada waktu tertentu. Tugas ini berisi pemicu berbasis waktu yang menentukan batas awal untuk mengaktifkan tugas, tindakan yang dapat dieksekusi yang menjalankan Notepad, dan batas akhir yang menonaktifkan tugas.

Prosedur berikut menjelaskan cara menjadwalkan tugas untuk memulai executable pada waktu tertentu.

Untuk Menjadwalkan Notepad untuk memulai pada Waktu Tertentu

1. Buat objek TaskService . Obyek ini memungkinkan Anda membuat tugas dalam folder yang ditentukan.
2. Dapatkan folder tugas dan buat tugas. Gunakan metode TaskService.GetFolder untuk mendapatkan folder tempat tugas disimpan dan metode TaskService.NewTask untuk membuat objek TaskDefinition yang mewakili tugas.
3. Tentukan informasi tentang tugas menggunakan objek TaskDefinition . Gunakan properti TaskDefinition.Settings untuk menentukan pengaturan yang menentukan bagaimana layanan Penjadwal Tugas melakukan tugas dan properti TaskDefinition.RegistrationInfo untuk menentukan informasi yang menjelaskan tugas.
4. Buat pemicu berbasis waktu menggunakan properti TaskDefinition.Triggers . Properti ini menyediakan akses ke objek TriggerCollection . Gunakan metode TriggerCollection.Create (menentukan jenis pemicu yang ingin Anda buat) untuk membuat pemicu berbasis waktu. Saat Anda membuat pemicu, atur batas awal dan batas akhir pemicu untuk mengaktifkan dan menonaktifkan pemicu. Batas awal menentukan kapan tindakan tugas akan dilakukan.
5. Buat tindakan untuk tugas yang akan dijalankan dengan menggunakan properti TaskDefinition.Actions . Properti ini menyediakan akses ke objek ActionCollection . Gunakan metode ActionCollection.Create untuk menentukan jenis tindakan yang ingin Anda buat. Contoh ini menggunakan objek ExecAction , yang mewakili tindakan yang menjalankan operasi baris perintah.
6. Daftarkan tugas menggunakan metode TaskFolder.RegisterTaskDefinition . Untuk contoh ini, tugas akan memulai Notepad pada waktu saat ini ditambah 30 detik.

Contoh VBScript berikut menunjukkan cara menjadwalkan tugas untuk menjalankan Notepad 30 detik setelah tugas didaftarkan.

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

Topik terkait

Menggunakan Penjadwal Tugas