Windows - ClusterScriptWrapper.vbs

'© Kirill 'kf' Nikolaev, 2011
'Все вопросы по скрипту: E-mail/Live: kf@animasub.ru

'Это не полноценный скрипт, а обёртка для скриптов, которые должны выполняться на отказоустойчивых кластерах по расписанию.
'Я рекомендую размещать скрипты непосредственно на собственных дисках каждого узла, а вот рабочие файлы (входящие и исходящие) уже на кластерных дисках.

strManageComputer = "SERVER" 'Имя кластера, к которому подключаемся.
strClusResource = "SERVER Network Name" 'Кластерный ресурс, на владельце которого будет выполняться скрипт.

Set wshNetwork = WScript.CreateObject("WScript.Network")
strComputerName = wshNetwork.ComputerName 'Получаем имя компьютера, на котором запустился скрипт.

Set objCluster = CreateObject("MSCluster.Cluster")
objCluster.Open strManageComputer

If objCluster.Resources.Item(strClusResource).OwnerNode.Name = strComputerName Then 'Проверяем, что текущий компьютер является владельцем нужного кластерного ресурса.

'Сюда вставьте тело скрипта

End If