顯示工作名稱和狀態 (腳本)

此腳本範例示範如何列舉工作資料夾中的工作，以及顯示每個工作的屬性值。

下列程式描述如何顯示工作資料夾中所有工作的工作名稱和狀態。

顯示工作資料夾中所有工作的工作名稱和狀態

1. 建立 TaskService 物件。

   此物件可讓您連線到工作排程器服務，並存取特定的工作資料夾。

2. 取得一個工作資料夾，其中包含您想要相關資訊的工作。

   使用 TaskService.GetFolder 方法來取得資料夾。

3. 從 資料夾取得工作的集合。

   使用 TaskFolder.GetTasks 方法來取得工作集合， (RegisteredTaskCollection) 。

4. 取得集合中的工作數目，並列舉集合中的每個工作。

   使用 物件的 RegisteredTaskCollection 集合來取得 RegisteredTask 物件實例。 每個實例都會包含集合中的工作。 然後，您可以從每個已註冊的工作顯示 (屬性值) 的資訊。

下列 VBScript 範例示範如何列舉根工作資料夾中已註冊工作的集合，並顯示每個工作的名稱和狀態。

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

相關主題

使用工作排程器