Approves a node of a compute cluster.

Visual Basic
Edit|Remove
Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster")
strNode = "TEST003"
objComputeCluster.Connect("localhost")
WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name
WScript.Echo "Compute Cluster Nodes"
Set colNodes = objComputeCluster.ComputeNodes
For Each objNode In colNodes
  If LCase(strNode) = LCase(objNode.Name) Then
    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
    WScript.Quit
  End If
Next
WScript.Echo strNode & " not found."