Hogyan írhatom ezt meg (VBS)?

System.threading.thread.sleep(30000)

ha jól emlékszek ez fut vbs-ben is. Ezzel lehet várakoztatni a programot

set WShell=WScript.CreateObject("WScript.Shell")

'el kell indítani a leállítást a bekérő ablak előtt

WShell.Run"shutdown -s -f -t 30"

'30 mp és leáll a gép, ha nem ismernéd a kódot.

jelszo="cica"

do

xx=InputBox("aggyad meg a jelszót vagy leáll a gép oszt leshetsz!","progí")

if xx=jelszo then

WShell.Run"shutdown -a"

msgbox"ügyesvótá'"

'ha egyezik a jelszó és a beadott érték akkor leállítja a leállítást.

else

msgbox"na aggyad meg msotmá azt a k jelszót rozi"

'ha nem egyezik megy tovább a 30mp... de még tippelhet

end if

loop until xx=jelszo

'az inputbox jön újra és újra amíg be nem írjuk a jelszót.. ez szöpacs mer csak 30mp-d van