Windowsunuz istediginiz bir sürede kapansin (.vbs)

Windowsunuz istediginiz bir sürede kapansin (.vbs) '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.
'YUPPİ - http://www.yuppiforum.com

Set objShell = CreateObject("Wscript.Shell")
strMsg = "Kapanis Süresini giriniz (Saniye olarak))"
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


Üsttekini notepad e yapistirip uzantisini .vbs seklinde kaydedin ve windowsunuzun kapanmasini istediginiz süreyi girin

Ben PC Close adında bir program kullanıyorum gerçekten harika
Upload ettim isteyenler şuradan indirebilir.