Листинг 2. Процедура отключения питания

Sub Shutdown

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

Dim arrComputers, objLocator

Dim login, password, domain

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

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

login="operator" // учетная запись с правом на shutdown

password="password" // пароль

domain="TEST" // домен

For Each strComputer In arrComputers

    Set objLocator = CreateObject("WbemScripting.SWbemLocator")

    Set objWMIService = objLocator.ConnectServer(strComputer, "rootcimv2", login, password, domain)

    Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

    For Each objOperatingSystem in colOperatingSystems

           // непосредственно shutdown

           ObjOperatingSystem.Shutdown(1)

    Next

    // после отключения уведомим администратора

    sendmail(strComputer)     

Next

WScript.Quit // сценарий завершает свою работу

End Sub

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

Также в тексте мы встречаем упоминание о процедуре отправки сообщений администратору или службе технической поддержки. В качестве параметра данной процедуре передается имя отключенного сервера.