Share via

Menampilkan Nama dan Status Tugas (Pembuatan Skrip)

  • Artikel

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 tugas dan status 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 Penjadwal Tugas dan mengakses folder tugas tertentu.

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

    Gunakan metode TaskService.GetFolder untuk mendapatkan folder.

  3. Dapatkan kumpulan tugas dari folder.

    Gunakan metode TaskFolder.GetTasks untuk mendapatkan kumpulan tugas (RegisteredTaskCollection).

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

    Gunakan koleksi 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

Menggunakan Penjadwal Tugas