[ダイアログボックスを表示する]

ダイアログボックスを表示します。
５秒間ボタンが押されない場合は、ダイアログを閉じて処理を継続します。
MsgBox 関数よりも、こちらの方が高機能です。

【ソースコード】

[tips0122.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト
Dim lngStatus       ' 選択したボタン番号

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    lngStatus = objWshShell.Popup( _
        "キャンセルボタンで中止します。", 5, _
        "処理を継続しますか？", vbOkCancel + vbQuestion)

    Select Case lngStatus
    Case vbOK
        objWshShell.Popup "OK ボタンが押されました。", , , vbInformation
    Case vbCancel
        objWshShell.Popup "キャンセルボタンが押されました。", , , vbCritical
        WScript.Quit
    Case -1
        objWshShell.Popup "５秒経過しました。", , , vbExclamation
    End Select
    WScript.Echo "処理終了"
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0122.vbs
処理終了