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

@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%

@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%

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