list virtual server tasks.vbs

来自「mnogo korisnih aplikacija i apleta za ad」· VBS 代码 · 共 15 行

On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
set colTasks = objVS.Tasks

For Each objTask in colTasks
     Wscript.Echo "Description: " & objTask.Description
     Wscript.Echo "ID: " & objTask.ID
     Wscript.Echo "Is cancellable: " & objTask.IsCancelable
     Wscript.Echo "Is complete: " & objTask.IsComplete
     Wscript.Echo "Percent completed: " & objTask.PercentCompleted
     Wscript.Echo "Result: " & objTask.Result
     Wscript.Echo 
Next