Option Explicit ? Объявление констант и переменных. Использование пустой строки в ? имени ComputerName заставляет сценарий установить соединение ? с локальным компьютером. Const ComputerName = «» Const ForWriting = 2 Const StateFile = «c:clusterstate.log» Dim oFs, f, oCluster, res, resGroup ? Установить объект FileSystemObject. Set oFs = CreateObject(«Scripting.FileSystemObject») ? Создать новый текстовый файл для хранения информации о владельцах ресурсов. Set f = oFs.CreateTextFile(StateFile,ForWriting) (A) ? Установить объект Cluster Automation Server. Set oCluster = CreateObject(«MSCluster.Cluster») (B) ? Открыть соединение с узлом кластера. oCluster.Open ComputerName (C) ? Для каждого ресурса узла кластера,получить ресурсы ? каждой ресурсной группы. For Each res in oCluster.Nodes ? Получить имя и владельца каждой ресурсной группы. Записать ? эту информацию в текстовый файл. For Each resGroup in res.ResourceGroups f.writeline resGroup.name & «,» & resGroup.OwnerNode.Name _ & «,» & Now Next Next ? Закрыть текстовый файл. f.Close ?Освободить память. Set oCluster = nothing Set f = nothing Set oFs = nothing