Lists tasks of a specific job.
intJobID = 4 'Must be an existing job. Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster") objComputeCluster.Connect("localhost") WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name WScript.Echo vbCrLf & "Job " & intJobID Set objJob = objComputeCluster.GetJob(intJobID) WScript.Echo vbCrLf & " ID: " & objJob.Id WScript.Echo " Name: " & objJob.Name WScript.Echo " User: " & objJob.User WScript.Echo " Submitted By: " & objJob.SubmittedBy WScript.Echo " Create Time: " & objJob.CreateTime WScript.Echo " Submit Time: " & objJob.SubmitTime WScript.Echo " Runtime: " & objJob.Runtime WScript.Echo " End Time: " & objJob.EndTime WScript.Echo " Maximum Number Of Processors: " & _ objJob.MaximumNumberOfProcessors WScript.Echo " Minimum Number Of Processors: " & _ objJob.MinimumNumberOfProcessors Select Case objJob.Priority Case 0 strPriority = "Lowest" Case 1 strPriority = "BelowNormal" Case 2 strPriority = "Normal" Case 3 strPriority = "AboveNormal" Case 4 strPriority = "Highest" Case Else strPriority = "Could not determine." End Select WScript.Echo " Priority: " & strPriority WScript.Echo " Project: " & objJob.Project WScript.Echo " Asked Nodes: " & objJob.AskedNodes WScript.Echo " Is Backfill: " & objJob.IsBackfill WScript.Echo " Is Exclusive: " & objJob.IsExclusive WScript.Echo " Run Until Canceled: " & objJob.RunUntilCanceled WScript.Echo " Software License: " & objJob.SoftwareLicense WScript.Echo " Extended Job Terms:" Set colExtJobTerms = objJob.ExtendedJobTerms For Each objExtJobTerm In colExtJobTerms WScript.Echo " " & objExtJobTerm.Name & " = " & objExtJobTerm.Value Next Select Case objJob.Status Case 0 strStatus = "NotSubmitted" Case 1 strStatus = "Queued" Case 2 strStatus = "Running" Case 3 strStatus = "Finished" Case 4 strStatus = "Failed" Case 5 strStatus = "Cancelled" Case Else strStatus = "Could not determine." End Select WScript.Echo " Status: " & strStatus WScript.Echo " Error Message: " & objJob.ErrorMessage WScript.Echo " Task Count: " & objJob.TaskCount For i = 1 To objJob.TaskCount Set objTask = objJob.GetTask(i) WScript.Echo vbCrLf & " Task ID: " & objTask.Id WScript.Echo " Name: " & objTask.Name WScript.Echo " Command Line: " & objTask.CommandLine WScript.Echo " Maximum Number Of Processors: " & _ objTask.MaximumNumberOfProcessors WScript.Echo " Minimum Number Of Processors: " & _ objTask.MinimumNumberOfProcessors WScript.Echo " Required Nodes: " & _ objTask.RequiredNodes WScript.Echo " Submit Time: " & objTask.SubmitTime WScript.Echo " Create Time: " & objTask.CreateTime WScript.Echo " Runtime: " & objTask.Runtime WScript.Echo " End Time: " & objTask.EndTime WScript.Echo " Command Line: " & objTask.CommandLine Select Case objTask.Status Case 0 strStatus = "Not Submitted" Case 1 strStatus = "Queued" Case 2 strStatus = "Running" Case 3 strStatus = "Finished" Case 4 strStatus = "Failed" Case 5 strStatus = "Cancelled" Case Else strStatus = "Could not determine" End Select WScript.Echo " Status: " & strStatus WScript.Echo " Exit Code: " & objTask.ExitCode Next
intJobID = 4 'Must be an existing job. Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster") objComputeCluster.Connect("localhost") WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name WScript.Echo vbCrLf & "Job " & intJobID Set objJob = objComputeCluster.GetJob(intJobID) WScript.Echo vbCrLf & " ID: " & objJob.Id WScript.Echo " Name: " & objJob.Name WScript.Echo " User: " & objJob.User WScript.Echo " Submitted By: " & objJob.SubmittedBy WScript.Echo " Create Time: " & objJob.CreateTime WScript.Echo " Submit Time: " & objJob.SubmitTime WScript.Echo " Runtime: " & objJob.Runtime WScript.Echo " End Time: " & objJob.EndTime WScript.Echo " Maximum Number Of Processors: " & _ objJob.MaximumNumberOfProcessors WScript.Echo " Minimum Number Of Processors: " & _ objJob.MinimumNumberOfProcessors Select Case objJob.Priority Case 0 strPriority = "Lowest" Case 1 strPriority = "BelowNormal" Case 2 strPriority = "Normal" Case 3 strPriority = "AboveNormal" Case 4 strPriority = "Highest" Case Else strPriority = "Could not determine." End Select WScript.Echo " Priority: " & strPriority WScript.Echo " Project: " & objJob.Project WScript.Echo " Asked Nodes: " & objJob.AskedNodes WScript.Echo " Is Backfill: " & objJob.IsBackfill WScript.Echo " Is Exclusive: " & objJob.IsExclusive WScript.Echo " Run Until Canceled: " & objJob.RunUntilCanceled WScript.Echo " Software License: " & objJob.SoftwareLicense WScript.Echo " Extended Job Terms:" Set colExtJobTerms = objJob.ExtendedJobTerms For Each objExtJobTerm In colExtJobTerms WScript.Echo " " & objExtJobTerm.Name & " = " & objExtJobTerm.Value Next Select Case objJob.Status Case 0 strStatus = "NotSubmitted" Case 1 strStatus = "Queued" Case 2 strStatus = "Running" Case 3 strStatus = "Finished" Case 4 strStatus = "Failed" Case 5 strStatus = "Cancelled" Case Else strStatus = "Could not determine." End Select WScript.Echo " Status: " & strStatus WScript.Echo " Error Message: " & objJob.ErrorMessage WScript.Echo " Task Count: " & objJob.TaskCount For i = 1 To objJob.TaskCount Set objTask = objJob.GetTask(i) WScript.Echo vbCrLf & " Task ID: " & objTask.Id WScript.Echo " Name: " & objTask.Name WScript.Echo " Command Line: " & objTask.CommandLine WScript.Echo " Maximum Number Of Processors: " & _ objTask.MaximumNumberOfProcessors WScript.Echo " Minimum Number Of Processors: " & _ objTask.MinimumNumberOfProcessors WScript.Echo " Required Nodes: " & _ objTask.RequiredNodes WScript.Echo " Submit Time: " & objTask.SubmitTime WScript.Echo " Create Time: " & objTask.CreateTime WScript.Echo " Runtime: " & objTask.Runtime WScript.Echo " End Time: " & objTask.EndTime WScript.Echo " Command Line: " & objTask.CommandLine Select Case objTask.Status Case 0 strStatus = "Not Submitted" Case 1 strStatus = "Queued" Case 2 strStatus = "Running" Case 3 strStatus = "Finished" Case 4 strStatus = "Failed" Case 5 strStatus = "Cancelled" Case Else strStatus = "Could not determine" End Select WScript.Echo " Status: " & strStatus WScript.Echo " Exit Code: " & objTask.ExitCode Next