Visa aktivitetsnamn och tillstånd (skript)

Det här skriptexemplet visar hur du räknar upp aktiviteter i en aktivitetsmapp och visar egenskapsvärden från varje aktivitet.

Följande procedur beskriver hur du visar aktivitetsnamn och tillstånd för alla aktiviteter i en aktivitetsmapp.

Om du vill visa aktivitetsnamn och status för alla aktiviteter i en aktivitetsmapp

1. Skapa objektet TaskService.

   Med det här objektet kan du ansluta till schemaläggartjänsten och få åtkomst till en specifik uppgiftsmapp.

2. Hämta en uppgiftsmapp som innehåller de uppgifter som du vill ha information om.

   Använd metoden TaskService.GetFolder för att hämta mappen.

3. Hämta samlingen med uppgifter från mappen.

   Använd metoden TaskFolder.GetTasks för att hämta samlingen med uppgifter (RegisteredTaskCollection).

4. Hämta antalet aktiviteter i samlingen och räkna upp genom varje uppgift i samlingen.

   Använd RegisteredTaskCollection samling objekt för att hämta en RegisteredTask- objektinstans. Varje instans innehåller en uppgift i samlingen. Du kan sedan visa informationen (egenskapsvärden) från varje registrerad uppgift.

I följande VBScript-exempel visas hur du räknar upp genom en samling registrerade aktiviteter i rotaktivitetsmappen och visar namn och tillstånd för varje aktivitet.

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

Relaterade ämnen

Använda schemaläggarens