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

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