'Launches "shutdown.exe /s /t xxx" - This script is a workaround...
'... for the 600 seconds time-out limit in Vista.
'Created on March 30, 2007
'Copyright © 2007 Ramesh Srinivasan.
'Winhelponline.com - http://www.winhelponline.com

Set objShell = CreateObject("Wscript.Shell")
strMsg = "종료시간을 입력해 주세요(초단위)"
iSec = trim(InputBox (strMsg,"Shutdown timeout value",750))
if iSec = "" then wscript.quit
if iSec > 600 then
     iSleep = int(iSec) - 600
     iSleep = iSleep * 1000
     WScript.Sleep iSleep
     objShell.Run "shutdown.exe /s /t 600"
else
     objShell.Run "shutdown.exe /s /t " & iSec
end If