Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '© 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement