Shutdown Tools

VBS Script
Save as: Shutdown tools.vbs

dim ss,sc
ss=inputbox("Enter numbers of seconds before shutdown (0-315359999):", "Input Shutdown")
set shl=createobject("wscript.shell")
shl.Run "shutdown -s -f -t " & ss
wscript.quit