VBS CScriptで時間待ち

WSH

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


ネタ元