Sdílet prostřednictvím

Zobrazení názvů a stavů úkolů (skriptování)

  • Článek

Tento příklad skriptování ukazuje, jak vytvořit výčet úkolů ve složce úkolů a zobrazit hodnoty vlastností z každého úkolu.

Následující postup popisuje, jak zobrazit názvy a stavy úkolů pro všechny úkoly ve složce úkolu.

Zobrazení názvů a stavu úkolů pro všechny úkoly ve složce úkolů

  1. Vytvořte objekt TaskService.

    Tento objekt umožňuje připojit se ke službě Plánovač úloh a získat přístup ke konkrétní složce úloh.

  2. Získejte složku úkolů, ve které jsou úkoly, o nichž chcete získat informace.

    K získání složky použijte metodu TaskService.GetFolder.

  3. Získejte kolekci úkolů ze složky.

    Pomocí metody TaskFolder.GetTasks získejte kolekci úloh (RegisteredTaskCollection).

  4. Získejte počet úkolů v kolekci a prohlédněte si jednotlivé úkoly v kolekci.

    Pomocí kolekce objektů RegisteredTaskCollection získejte instanci objektu RegisteredTask. Každá instance bude obsahovat úlohu v kolekci. Pak můžete zobrazit informace (hodnoty vlastností) z každého registrovaného úkolu.

Následující příklad jazyka VBScript ukazuje, jak vytvořit výčet prostřednictvím kolekce registrovaných úloh v kořenové složce úloh a zobrazit název a stav jednotlivých úloh.

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

Používání plánovače úloh