Set Cluster Resource PendingTimeout via VBScript

Question

Attempting to change the PendingTimeout value for all cluster resources for Exchange2k7 on x64 Server 2003.  The PendingTimeout value will change to the correct value, but only until script execution has been completed.  Than it reverts back to previous value.

intTimeOut = 600000
Set colItems = objWMIService.ExecQuery("Select Name,PendingTimeout from MSCluster_Resource")
For Each objItem in colItems
     If objItem.PendingTimeout = "180000" Then
          objItem.PendingTimeout = intTimeOut
          **CommitChange?**
     End If
Next

Does anyone have any insight on how to preserve the value following script completion?

Answer 1

Hi Tomlinsc,

This forum is for discussion of the technical content of the Exchange Server protocol documentation.

Your question does not appear to be related to the Exchange Server protocol documentation as it appears to be an related to cluster management.  You would be better served if you post your question to Microsoft TechNet > Forums Home > Exchange Server > High availability/Disaster Recovery forum.

Hope this helps.

---

Developer Consultant