Автоматическое отключение рабочих станции. Способы реализации?

Question

[blackbeard]

Добрый день.
Поставили задачу - рабочие станции пользователей должны автоматически/принудительно выключатся в конце рабочего дня. Какие способы реализации предложите? Развернут AD, рабочие станции преимущественно на 10-ке.
В идеале - предупреждение пользователя заранее, возможность продления на пару часов(опционально).
Политикой.сторонним софтом - не важно)
Заранее благодарю.

Answer 1

[Константин Цветков]

Работает уже несколько лет:
NightShutdown.cmd запускается заданием в нужное время (у меня в 22:00 и 23:00)

@echo off
chcp 1251 > nul
set LF=NightShutdown.%date:~6,4%.%date:~3,2%.%date:~0,2%.log
echo ----------- >> %LF%
echo %time% >> %LF%
echo ----------- >> %LF%
psshutdown.exe -k -f -t 00 -v 00 @NightShutdown.list >> %LF%

NightShutdown.list — список компьютеров.
И ещё в 21:00, для установки обновлений NightShutdownReboot.cmd

@echo off
chcp 1251 > nul
set LF=NightShutdown.%date:~6,4%.%date:~3,2%.%date:~0,2%.log
echo ----------- >> %LF%
echo %time% >> %LF%
echo ----------- >> %LF%
psshutdown.exe -r -f -t 00 -v 00 @NightShutdown.list >> %LF%

PsShutdown v2.52.

Comments

[blackbeard]

Спасибо!
psshutdown на win10 работает?

[Константин Цветков]

blackbeard: Да.

Answer 2

[deptk]

Вот ещё вариант с проверкой, если сотрудник вдруг задержался:

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 /f /t 300")
intDo =  WSHShell.Popup(Message,0,Title,vbOK + Inf)
if intDo = Cancel Then  
WSHShell.Run("shutdown /a")    
WScript.Quit()
End if

Comments

[blackbeard]

Спасибо, буду копать в этом направлении. К сожалению, со скриптовым языком я еще не сталкивался. Такой вопрос - а можно ли сделать так, чтоб в нерабочее время у сотрудников не было доступа к раб.ст. Заблокировать учетку например?

Answer 3

[Армянское Радио]

shutdown -i запустите. Дальше - интуитивно.