Menampilkan Nama dan Status Tugas (Pembuatan Skrip)

Contoh pembuatan skrip ini memperlihatkan cara menghitung tugas dalam folder tugas dan menampilkan nilai properti dari setiap tugas.

Prosedur berikut ini menjelaskan cara menampilkan nama dan status tugas untuk semua tugas dalam folder tugas.

Untuk menampilkan nama dan status tugas untuk semua tugas dalam folder tugas

1. Buat objek TaskService.

   Objek ini memungkinkan Anda menyambungkan ke layanan Task Scheduler dan mengakses folder tugas tertentu.

2. Dapatkan folder tugas yang menyimpan tugas yang ingin Anda informasikan.

   Gunakan metode TaskService.GetFolder untuk mendapatkan folder.

3. Ambil kumpulan tugas dari folder.

   Gunakan metodeTaskFolder.GetTasks untuk mendapatkan pengumpulan tugas (RegisteredTaskCollection).

4. Dapatkan jumlah tugas dalam koleksi dan hitung melalui setiap tugas dalam koleksi.

   Gunakan kumpulan objek RegisteredTaskCollection untuk mendapatkan instans objek RegisteredTask. Setiap instans akan berisi tugas dalam koleksi. Anda kemudian dapat menampilkan informasi (nilai properti) dari setiap tugas terdaftar.

Contoh VBScript berikut menunjukkan cara menghitung melalui kumpulan tugas terdaftar di folder tugas akar dan menampilkan nama dan status untuk setiap tugas.

'---------------------------------------------------------
' This sample enumerates through the tasks on the local computer and
' displays their name and state.
'---------------------------------------------------------


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

' Get the task folder that contains the tasks. 
Dim rootFolder
Set rootFolder = service.GetFolder("\")
 
Dim taskCollection
Set taskCollection = rootFolder.GetTasks(0)

Dim numberOfTasks
numberOfTasks = taskCollection.Count

If numberOfTasks = 0 Then 
    Wscript.Echo "No tasks are registered."
Else
    WScript.Echo "Number of tasks registered: " & numberOfTasks
    
    Dim registeredTask
    For Each registeredTask In taskCollection
        WScript.Echo "Task Name: " & registeredTask.Name
    
        Dim taskState 
        Select Case registeredTask.State 
            Case "0"
                taskState = "Unknown"
            Case "1"
                taskState = "Disabled"
            Case "2"
                taskState = "Queued"
            Case "3"
                taskState = "Ready"
            Case "4"
                taskState = "Running"
        End Select

        WScript.Echo "    Task State: " & taskState
    Next
End If

Topik terkait

Menggunakan Penjadwal Tugas