strClusterName = "localhost" 'Change to name of cluster if not run locally.
Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster")
objComputeCluster.Connect(strClusterName)
WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name
WScript.Echo vbCrLf & "Jobs:"
Set colJobs = objComputeCluster.ListAllJobs
For Each objJob In colJobs
  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 "  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
Next