Pauses a node of a compute cluster.

Visual Basic
Edit|Remove
Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster")
strNode = "TEST002"
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 = 0 Then
      intReturn = objComputeCluster.PauseNode(objNode.Name)
      If intReturn = 0 Then
        WScript.Echo objNode.Name & " paused."
      Else
        WScript.Echo "Unable to pause " & objNode.Name & "."
      End If
    ElseIf objNode.Status = 1 Then
      WScript.Echo objNode.Name & " already paused."
    Else
      WScript.Echo objNode.Name & " not available."
    End If
    WScript.Quit
  End If
Next
WScript.Echo strNode & " not found."