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