'Copyright 2007 Ramesh Srinivasan. All rights reserved.
'Winhelponline.com - http://www.winhelponline.com
'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

Set objShell = CreateObject("Wscript.Shell")
iSeconds = trim(InputBox ("Enter the time-out period (in seconds) before shutdown"))
if iSeconds = "" then wscript.quit
if iSeconds > 600 then
	iSleep = int(iSeconds) - 600
	iSleep = iSleep  * 1000
	WScript.Sleep iSleep
	objShell.Run "shutdown.exe /s /t 600"
else
	objShell.Run "shutdown.exe /s /t " & iSeconds
end If