Share via

Mostrar los nombres y estados de las tareas (scripting)

  • Artículo

En este ejemplo de scripting se muestra cómo enumerar las tareas de una carpeta de tareas y mostrar los valores de propiedad de cada tarea.

En el procedimiento siguiente se describe cómo mostrar los nombres y estados de las tareas de todas las tareas de una carpeta de tareas.

Para mostrar los nombres y el estado de todas las tareas de una carpeta de tareas

  1. Cree el objeto TaskService .

    Este objeto permite conectarse al servicio Programador de tareas y acceder a una carpeta de tareas específica.

  2. Obtenga una carpeta de tareas que contenga las tareas sobre las que desea obtener información.

    Use el método TaskService.GetFolder para obtener la carpeta.

  3. Obtiene la colección de tareas de la carpeta .

    Use el método TaskFolder.GetTasks para obtener la colección de tareas (RegisteredTaskCollection).

  4. Obtiene el número de tareas de la colección y enumera a través de cada tarea de la colección.

    Utilice la colección RegisteredTaskCollection de objetos para obtener una instancia de objeto RegisteredTask . Cada instancia contendrá una tarea en la colección. A continuación, puede mostrar la información (valores de propiedad) de cada tarea registrada.

En el siguiente ejemplo de VBScript se muestra cómo enumerar una colección de tareas registradas en la carpeta de tareas raíz y mostrar el nombre y el estado de cada tarea.

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

Uso del Programador de tareas