Option Explicit
? Объявление констант и переменных. Использование пустой строки в
? имени ComputerName заставляет сценарий установить соединение
? с локальным компьютером.
Const ComputerName = «»
Const ForReading = 1
Const ForWriting = 2
Const StateFile = «c:clusterstate.log»
Const OutLogFile = «c:step2.log»
Dim oFs, outFile, inFile, arrLine, oCluster
(A) ? Прочитать выходной файл и вернуть состояние к исходному.
Set oFs = CreateObject(«Scripting.FileSystemObject»)
Set outFile = oFs.CreateTextFile(OutLogFile,ForWriting)
If oFs.FileExists(StateFile) Then
? Установить объект Cluster Automation Server.
Set oCluster = CreateObject(«MSCluster.Cluster»)
? Открыть соединение с узлом кластера.
oCluster.Open ComputerName
Set inFile = oFs.OpenTextFile(StateFile,ForReading)
(B) ? Вернуть все ресурсы первоначальным узлам-владельцам.
Do While Not inFile.AtEndOfStream
arrLine = Split(inFile.ReadLine,»,»)
outFile.WriteLine «Перемещение « & arrLine(0) & « в « & arrLine(1)
(C) ? Вернуть все ресурсы первоначальным узлам-владельцам.
oCluster.ResourceGroups.Item(Trim(arrLine(0))).Move 60, _
Trim(arrLine(1))
Loop
inFile.Close
Set inFile = nothing
Set oCluster = nothing
Else
? MsgBox «Файл состояния не найден. Никаких действий не совершено.»
outFile.WriteLine « Файл состояния не найден. Никаких действий не совершено.»
End If
outFile.Close
Set oFs = nothing

Поделитесь материалом с коллегами и друзьями