Задача - выключить все компьютеры в конце рабочего дня. Имеется 2003 домен, рабочие станции -половина на WinXP, половина на Win7.
Был взят скрипт на выключение и через GPO добавлен в планировщик с наивысшими правами
Dim vbOK,Inf,intDo, Cancel
Dim Message, Title
vbOK = 1
Inf = 64
Cancel = 2
Message = "Компьютер будет выключен через 5 минут. Выполнить?"
Title = "Подтвердите действие"
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run("shutdown /s /d p:0:0 /t 300")
intDo = WSHShell.Popup(Message,0,Title,vbOK + Inf)
if intDo = Cancel Then
WSHShell.Run("shutdown /a")
WScript.Quit()
End if
Проблема в том, что на семерке задание не срабатывет после автоматической блокировки компьютера, в логах ошибка "Сбой Запуска". Если комп не заблокирован - задание выполняется
Есть идеи, как победить????????????????
Был взят скрипт на выключение и через GPO добавлен в планировщик с наивысшими правами
Dim vbOK,Inf,intDo, Cancel
Dim Message, Title
vbOK = 1
Inf = 64
Cancel = 2
Message = "Компьютер будет выключен через 5 минут. Выполнить?"
Title = "Подтвердите действие"
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run("shutdown /s /d p:0:0 /t 300")
intDo = WSHShell.Popup(Message,0,Title,vbOK + Inf)
if intDo = Cancel Then
WSHShell.Run("shutdown /a")
WScript.Quit()
End if
Проблема в том, что на семерке задание не срабатывет после автоматической блокировки компьютера, в логах ошибка "Сбой Запуска". Если комп не заблокирован - задание выполняется
Есть идеи, как победить????????????????