こんにちは！自動化の世界へようこそ。
日々、膨大な定型作業やシステムのバッチ処理に追われていませんか？「ここであと一歩、人の手による確認（あるいは一時停止）を挟みたいけれど、夜間の無人実行時は勝手に進んでほしい……」そんなジレンマに直面したことはないでしょうか。
一般的な `MsgBox` を使ってしまうと、ユーザーが「OK」ボタンを押すまで処理が永遠にフリーズしてしまいます。これでは完全自動化の夢が途絶えてしまいますよね。
そこで今回マスターするのが、WSH（Windows Script Host）が誇る隠れた名機能、`WScript.Shell` の `Popup` メソッドです。
ここをクリアすれば、あなたのVBScriptは「ただの自動化スクリプト」から「状況に応じて自律判断する知的エージェント」へと進化します。さあ、一緒に扉を開きましょう！
—
1. なぜ `MsgBox` ではダメなのか？
VBScriptでメッセージを表示する際、真っ先に思い浮かぶのは `MsgBox “処理が完了しました”` でしょう。
しかし、`MsgBox` には「人間がクリックするまで絶対に先に進まない」という絶対的な制約があります。
例えば、金曜の夜に自動バッチを仕掛けたとします。途中でエラー判定のポップアップが出てしまったら？ 月曜の朝に出社するまで、処理は丸2日間ストップしたままです。これでは自動化の意味がありません。
救世主 `Popup` メソッドの正体
`WScript.Shell` オブジェクトが持つ `Popup` メソッドは、`MsgBox` の上位互換と言える機能です。最大の特徴は、「指定した秒数が経過すると、自動的にダイアログが消え、デフォルトの返り値を返して処理を続行する」というタイムアウト機能を持っている点にあります。
—.
2. `Popup` メソッドの仕様を完全理解する
まずは、その構文と引数の意味をスッキリ頭に整理しましょう。
intButton = object.Popup(strText, [nSecondsToWait], [strTitle], [nType])
| 引数 | 必須/省略 | 説明 |
| :— | :— | :— |
| strText | 必須 | ダイアログ内に表示するメッセージ文字列。 |
| nSecondsToWait | 省略可 | 自動的に閉じるまでの秒数（指定秒数経過でタイムアウト）。省略時は無制限（`MsgBox`と同等）。 |
| strTitle | 省略可 | ダイアログのタイトルバーに表示する文字列。 |
| nType | 省略可 | ボタンの種類やアイコンの組み合わせ（ビットフラグ指定）。 |
戻り値（intButton）でユーザーの行動をキャッチ
ユーザーがボタンを押したか、あるいはタイムアウトで自動消滅したかによって、スクリプト側で分岐処理が可能です。
- `1` : [OK] ボタンが押された
- `2` : [キャンセル] ボタンが押された
- `6` : [はい] ボタンが押された
- `7` : [いいえ] ボタンが押された
- `-1` : タイムアウト（時間切れで自動終了） ← ここが最重要！
—
3. 実践：タイマー付きダイアログを書いてみよう
それでは、実際の現場で即戦力となるコードを見ていきましょう。
以下のコードをメモ帳に貼り付けて、拡張子を `.vbs` （例: `timer_notice.vbs`）で保存してみてください。
‘ =================================================================0
‘ タイマー付きダイアログ実践サンプル
‘ 無人バッチ処理と対話型操作の両立を狙う極限の設計
‘ =================================================================胚
Option Explicit
Dim ws, message, title, waitSeconds, buttonType, result
‘ オブジェクトの生成（WScript.Shell）
Set ws = CreateObject(“WScript.Shell”)
message = “まもなく夜間メンテナンスを開始します。” & vbCrLf & _
“作業を続行しますか？” & vbCrLf & _
“（5秒以内に応答がない場合は、自動的に「はい」として続行します）”
title = “【自動化システム】メンテナンス通知”
waitSeconds = 5 ‘ タイムアウト秒数（5秒）
buttonType = 4 + 32 WScript.Shellの Popup メソッドを活用した一定時間後に自動で閉じる通知ウィンドウの作成 (Yes/Noボタン + クエスチョンアイコン)
‘ Popup メソッドの実行
‘ 戻り値には「どのボタンが押されたか」、あるいは「タイムアウト(-1)」が入る
result = ws.Popup(message, waitSeconds, title, buttonType)
‘ ユーザーの選択、またはタイムアウトによる分岐処理
Select Case result
Case 6, -1
‘ [はい] が選ばれた場合、または タイムアウト(-1) の場合
If result = -1 Then
ws.Popup “タイムアウトしました。デフォルト（はい）で処理を継続します。”, 2, “通知”, 64
Else
ws.Popup “「はい」が選択されました。処理を開始します。”, 2, “通知”, 64
End If
‘ TODO: ここに実際のメイン処理（ファイルコピーや外部API叩きなど）を記述
Case 7
‘ [いいえ] が選ばれた場合
ws.Popup “ユーザーによって処理がキャンセルされました。”, 3, “中断”, 48
Case Else
‘ 想定外のエラー等
WScript.Echo “予期せぬ応答です。”
End Select
‘ オブジェクトの解放（メモリ管理の基本）
Set ws = Nothing
WScript.Quit
—
4. エンジニアとして知っておくべき「現場の罠」
ここで、現場でありがちなハマりポイントをいくつか共有しておきます。ここを知っているかどうかが、プロとアマの分かれ道です。
① タイムアウト時の戻り値の罠
タイムアウトした際、戻り値として返るのは `0` ではなく `-1` です。
「何も押されなかったから 0 だろう」とコードを書くと、意図しないバグを生みます。上記のサンプルコードのように、タイムアウト時（`-1`）をどう扱うかを必ず明示的に設計してください。
② 無人実行環境（タスクスケジューラなど）での挙動
Windowsのタスクスケジューラ等で「ユーザーがログオンしているかどうかにかかわらず実行する」設定にしている場合、デスクトップとの対話（GUIの表示）が制限され、`Popup` メソッド自体が画面に描画されない、あるいはスクリプトがブロックされることがあります。
「完全無人サーバー」で動かす場合は、Popupではなくログ出力（TextStream等）に切り替える設計がプロのアーキテクトとしての作法です。
—
5. おわりに
お疲れ様でした！
今回学んだ `WScript.Shell` の `Popup` メソッドを活用すれば、「普段は人が操作するから確認ダイアログを出したいけれど、放置されたら自動で安全側に倒して進めたい」という、実務で非常によくある要求を美しくクリアできます。
ここをクリアすれば、VBScriptの基本、そしてWSHのオブジェクト操作の勘所はもうバッチリです。
ぜひ、あなたの日常業務の自動化ツールにこの「タイマー付きダイアログ」を組み込んで、スマートな自動化ライフを満喫してくださいね！
