Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster")
objComputeCluster.Connect("localhost")
WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name
WScript.Echo "Compute Cluster Nodes"
Set colNodes = objComputeCluster.ComputeNodes
For Each objNode In colNodes
  WScript.Echo "  Name: " & objNode.Name
  strStatus = ""
  Select Case objNode.Status
    Case 0 strStatus = "Ready"
    Case 1 strStatus = "Paused"
    Case 2 strStatus = "Unreachable"
    Case 3 strStatus = "Pending Approval"
    Case Else strStatus = "Status unobtainable"
  End Select
  WScript.Echo "    Status: " & strStatus
  If objNode.Status = 1 Then
    intReturn = objComputeCluster.ResumeNode(objNode.Name)
    If intReturn = 0 Then
      WScript.Echo objNode.Name & " resumed."
    Else
      WScript.Echo "Unable to resume " & objNode.Name & "."
    End If
  ElseIf objNode.Status = 0 Then
    WScript.Echo objNode.Name & " already resumed."
  Else
    WScript.Echo objNode.Name & " not available."
  End If
Next

Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster")
objComputeCluster.Connect("localhost")
WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name
WScript.Echo "Compute Cluster Nodes"
Set colNodes = objComputeCluster.ComputeNodes
For Each objNode In colNodes
  WScript.Echo "  Name: " & objNode.Name
  strStatus = ""
  Select Case objNode.Status
    Case 0 strStatus = "Ready"
    Case 1 strStatus = "Paused"
    Case 2 strStatus = "Unreachable"
    Case 3 strStatus = "Pending Approval"
    Case Else strStatus = "Status unobtainable"
  End Select
  WScript.Echo "    Status: " & strStatus
  If objNode.Status = 1 Then
    intReturn = objComputeCluster.ResumeNode(objNode.Name)
    If intReturn = 0 Then
      WScript.Echo objNode.Name & " resumed."
    Else
      WScript.Echo "Unable to resume " & objNode.Name & "."
    End If
  ElseIf objNode.Status = 0 Then
    WScript.Echo objNode.Name & " already resumed."
  Else
    WScript.Echo objNode.Name & " not available."
  End If
Next