strUserName = "kenmyer"

Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster")
objComputeCluster.Connect("localhost")
WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name
WScript.Echo vbCrLf & "Jobs for " & strUserName

For i = 0 To 5
    Select Case i
      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"
    End Select
    WScript.Echo vbCrLf & "Jobs with Status: " & strStatus
    'Get jobs with status of i.
    Set colJobs = objComputeCluster.ListJobs(strUserName, i)
    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 = "Below Normal"
          Case 2 strPriority = "Normal"
          Case 3 strPriority = "Above Normal"
          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
      WScript.Echo "  Status: " & strStatus
      WScript.Echo "  Error Message: " & objJob.ErrorMessage
    Next
Next