Approves all nodes of a compute cluster.

Visual Basic
Edit|Remove
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 = 3 Then
    intReturn = objComputeCluster.ApproveNode(objNode.Name)
    If intReturn = 0 Then
      WScript.Echo objNode.Name & " approved."
    Else
      WScript.Echo "Unable to approve " & objNode.Name & "."
    End If
  ElseIf (objNode.Status = 0) Or (objNode.Status = 1) Then
    WScript.Echo objNode.Name & " already approved."
  Else
    WScript.Echo objNode.Name & " not available."
  End If
Next