Exibindo nomes e estados de tarefas (scripts)
Este exemplo de script mostra como enumerar tarefas em uma pasta de tarefas e exibir valores de propriedade de cada tarefa.
O procedimento a seguir descreve como exibir nomes de tarefas e estados para todas as tarefas em uma pasta de tarefas.
Para exibir nomes de tarefas e estado para todas as tarefas em uma pasta de tarefas
Crie o objeto TaskService .
Esse objeto permite que você se conecte ao serviço Agendador de Tarefas e acesse uma pasta de tarefas específica.
Obtenha uma pasta de tarefas que contém as tarefas sobre as quais você deseja obter informações.
Use o método TaskService.GetFolder para obter a pasta.
Obtenha a coleção de tarefas da pasta .
Use o método TaskFolder.GetTasks para obter a coleção de tarefas (RegisteredTaskCollection).
Obtenha o número de tarefas na coleção e enumere em cada tarefa na coleção.
Use a coleção RegisteredTaskCollection de objetos para obter uma instância de objeto RegisteredTask . Cada instância conterá uma tarefa na coleção. Em seguida, você pode exibir as informações (valores de propriedade) de cada tarefa registrada.
O exemplo de VBScript a seguir mostra como enumerar por meio de uma coleção de tarefas registradas na pasta de tarefas raiz e exibir o nome e o estado de cada tarefa.
'---------------------------------------------------------
' 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
Tópicos relacionados