3秒後に終了。
cscriptで実行してね。
Option Explicit Const INTERVAL = 3 'As Long WScript.Echo CStr(INTERVAL) & "秒後に終了します。" CountDown INTERVAL WScript.Quit Private Sub CountDown(argInterval) Dim cntSec 'As Long cntSec = 0 Do While(cntSec < argInterval) WScript.Echo "あと" & CStr(argInterval - cntSec) & "秒" WScript.Sleep 1000 cntSec = cntSec + 1 Loop End Sub
ネタ元