Листинг 6. Процедура WakeUp

Sub WakeUp

On Error Resume Next // если ошибка, переходим к следующему

Dim arrComputers

Dim WshShell, str

// Перечисляем имена серверов, которые должны быть выключены

arrComputers = Array("Computer1","Computer2","Computer3")

Set WshShell = CreateObject("WScript.Shell")

For Each strComputer In arrComputers

    str="ping "& strComputer

    //запускаем в режиме hide

    Return = WshShell.Run(str, 0)

Next

End Sub

Заключение

Итак, мы рассмотрели основные аспекты написания сценария для автоматизированного управления серверами Windows при работе с источником бесперебойного питания. Теперь в случае отключения электропитания все наши сервера не окажутся предоставлены сами себе в ожидании полной разрядки аккумулятора, а будут корректно выключены без потери данных.

Очевидно, что алгоритмы и процедуры, изложенные в данной статье, можно с тем же успехом использовать и для решения других задач автоматизации управления серверами и аудита журнала событий с отправкой уведомлений администратору. Например, для наблюдения за корректностью работы тех или иных сервисов и приложений, результатов проведения резервного копирования и других административных действий.

Ссылка:

1. http://msdn.microsoft.com – содержит много примеров с исходными текстами сценариев.