Lists properties of a specific job.

Visual Basic
Edit|Remove
intJobID = 1 '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 "  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 "  Scheduled Time: " & objJob.ScheduledTime
WScript.Echo "  Runtime: " & objJob.Runtime
WScript.Echo "  End Time: " & objJob.EndTime
WScript.Echo "  Task Count: " & objJob.TaskCount
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