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