【タイマー付きダイアログ】WScript.Shell の Popup メソッドを活用した無人運用バッチの極意
開発現場でよくある光景だ。夜間バッチや定時自動処理の最中に、予期せぬ例外や確認プロンプト（`MsgBox`）がポップアップし、「OK」ボタンが押されるまでプロセスが無限にフリーズする――。翌朝に出社して絶望した経験を持つエンジニアは私だけではないはずだ。
RPAやサーバの無人実行環境において、人間の操作を前提とするダイアログは、システムにとって「最大の障害物」である。しかし、業務の性質上「どうしても処理の途中でユーザーに数秒間の選択肢を与えたい、だが放置されたら自動でデフォルト処理へ進めたい」という要件は確実に存在する。
ここで標準の `MsgBox` を使うのは、設計者としての怠慢だと言わざるを得ない。我々が使うべきは、WSH（Windows Script Host）が内包する `WScript.Shell` の `Popup` メソッド である。
今回は、この `Popup` メソッドを完全に手なずけ、タイムアウト制御と堅牢なエラーハンドリングを備えた「プロダクション品質のタイマー付きダイアログ」の設計手法を伝授する。
—
なぜ `MsgBox` ではダメなのか？ ── アーキテクチャの比較
VBScriptにおける標準の対話手段である `MsgBox` 関数は、VBA（Visual Basic for Applications）の流用であり、WSHの非同期・無人実行環境においては致命的な欠陥を抱えている。
| 評価軸 | `MsgBox` (VBScript標準) | `WScript.Shell.Popup` (WSH) |
| :— | :— | :— |
| タイムアウト機能 | なし（無限ブロック） | あり（秒数指定可能） |
| 自動デフォルト応答 | 不可（ユーザー依存） | タイムアウト時の戻り値を定義可能 |
| タスクバー制御 | VBScriptホスト全体に依存 | ウィンドウタイトルのカスタマイズが容易 |
| 無人バッチ適性 | 最悪（プロセス停止リスク大） | 高（自律的なフォールバックが可能） |
`Popup` メソッドの真価は、「指定された秒数が経過すると、強制的にダイアログを閉じ、あらかじめ決められたデフォルトの戻り値を返却する」という点にある。これにより、人間の介入がなくともスクリプトがデッドロックに陥るリスクを完全に排除できるのだ。
—
`Popup` メソッドの仕様とトラップ
`Popup` メソッドの構文は以下の通りだ。
intButton = object.Popup(strText, [nSecondsToWait], [strTitle], [nType])
一見すると単純だが、実務で使う際には以下の仕様（あるいは仕様の穴）を熟知しておく必要がある。
1. `nSecondsToWait` に `0` を指定した場合
タイマーは作動しない。実質的に `MsgBox` と同等になるため、無人バッチでは絶対に使用してはならない。
2. タイムアウト時の戻り値
ユーザーがボタンを押さずに時間が切れた場合、メソッドは `-1` を返す。この挙動をハンドリングできないコードは、例外処理として破綻する。
3. モーダル挙動
`Popup` は実行中のスクリプトスレッドをブロックする。GUIを持たない `cscript.exe` から実行した場合でもダイアログは描画されるが、タスクのフォーカス奪取問題には配慮が必要である。
—
【実践】コピペで使えるプロダクションコード
単にメソッドを呼び出すだけのコードでは、現場の要件には耐えられない。
ここでは、データベース接続やファイル操作を伴うバッチ処理を想定し、「ユーザーが応答すればその選択に従い、タイムアウトすれば安全なデフォルト値で処理を続行する」実用的なスクリプトを提供する。
以下のコードを `SmartPopup.vbs` として保存し、動作を確認してほしい。
‘ ==============================================================================
‘ スクリプト名: SmartPopup.vbs
‘ 概要: タイムアウト制御付きPopupメソッドを用いた堅牢な対話型バッチ処理の模範実装
‘ 著者: チーフアーキテクト
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Main
Sub Main()
Dim wsh, intRet, strMsg, strTitle, intWaitSec, intDefaultType
‘ オブジェクトの生成
Set wsh = CreateObject(“WScript.Shell”)
strMsg = “まもなく夜間データ連携バッチを開始します。” & vbCrLf & _
“処理を中止する場合は「キャンセル」を押してください。” & vbCrLf & _
“（10秒以内に応答がない場合、自動的に処理を続行します）”
strTitle = “【業務自動化システム】バッチ実行前確認”
intWaitSec = 10 ‘ タイムアウト秒数
‘ ボタン構成: [OK/キャンセル (1)] + [情報アイコン (64)] = 65
‘ ※ デフォルトの挙動として、タイムアウト時は -1 が返るため、
‘ 実質的なデフォルト動作をどう定義するかロジックで担保する。
intDefaultType = 65
‘ Popup実行
‘ 戻り値の定義:
‘ 1 = [OK] ボタンが押された
‘ 2 = [キャンセル] ボタンが押された
‘ -1 = タイムアウト（時間切れ）
intRet = wsh.Popup(strMsg, intWaitSec, strTitle, intDefaultType)
‘ オブジェクトの即時解放（メモリリーク防止の鉄則）
Set wsh = Nothing
‘ 戻り値に基づく分岐処理
Select Case intRet
Case 1
‘ [OK] が押された場合
Call ExecuteBatchProcess()
Case 2
‘ [キャンセル] が押された場合
WScript.Echo “ユーザーの指示により、バッチ処理を中止しました。”
WScript.Quit 0
Case -1
‘ タイムアウト発生時（無人実行時のデフォルト挙動）
‘ ※実務ではここでログ出力を行い、そのまま処理を進めるのが定石
Call LogMessage(“WARN: タイムアウトしました。デフォルト（処理継続）で実行します。”)
Call ExecuteBatchProcess()
Case Else
‘ 予期せぬ戻り値に対するフェイルセーフ
Call LogMessage(“ERROR: 予期せぬダイアログ応答です: ” & intRet)
WScript.Quit 99
End Select
End Sub
‘ ——————————————————————————
‘ 実業務の処理をシミュレートするプロシージャ
‘ ——————————————————————————
Sub ExecuteBatchProcess()
Call LogMessage(“INFO: データ連携バッチ処理を開始します…”)
‘ ここに実際のファイル処理やDB連携ロジックを記述する
‘ 例: FileSystemObjectによるログ出力や、ADODBによるSQL実行など
WScript.Sleep 2000 ‘ 処理の擬似ウェイト
Call LogMessage(“INFO: バッチ処理が正常に完了しました。”)
End Sub
‘ ——————————————————————————
‘ 簡易ログ出力関数
‘ ——————————————————————————
Sub LogMessage(ByVal strText)
‘ 実際の現場ではここで TextStream を使ったファイルへの書き込みを行うこと
WScript.Echo “[” & Now & “] ” & strText
End Sub
—
現場で役立つ設計の知見（Architecture Insights）
このコードをそのままエンタープライズ環境に投入するにあたり、プロの視点からいくつか重要な設計思想を補足する。
1. `WScript.Shell` のスコープとライフサイクル
WSHスクリプトにおいて `CreateObject(“WScript.Shell”)` は頻出するが、不要になったら速やかに `Set wsh = Nothing` で解放するべきだ。VBScriptのガベージコレクタに依存するのではなく、明示的なオブジェクト破棄を行うことが、長期間稼働するタスクランナー環境でのメモリリークを防ぐ唯一の道である。
2. 無人実行（タスクスケジューラ等）における注意点
もしこのスクリプトが、ユーザーがログオンしていない状態（「ユーザーがログオンしているかどうかにかかわらず実行する」設定）のタスクスケジューラから起動された場合、`Popup` メソッドは画面に描画されず、指定された `nSecondsToWait` の間、完全にブロックされた後にタイムアウト値（`-1`）を返す仕様となっている。
つまり、「有人時は対話的に選択させ、無人時はタイムアウトによって自動継続させる」というハイブリッドな要件を、コードの分岐を変えることなく1つのソースで完結させられる。これが、この手法の最大の強みである。
3. エラーハンドリングと終了コードの規約
バッチ処理の成否を親プロセス（タスク管理ツールや上位のバッチファイル）に伝えるため、`WScript.Quit` には意味のある終了コード（Exit Code）を返却する設計にしている。
- `0`: 正常終了 / ユーザーキャンセル（意図した停止）
- `99`: 予期せぬ例外・システム異常
単にスクリプトを終了させるのではなく、上位システムが検知できるステータス設計を組むことがプロフェッショナルの仕事である。
—
総括
たかがダイアログ、されどダイアログ。
`MsgBox` の思考停止した利用は、自動化システムの信頼性を確実に蝕む。`WScript.Shell` の `Popup` メソッドが持つタイムアウト機構を正しく理解し、タイムアウト時（`-1`）のフォールバックを設計に組み込むことによって初めて、真に「止まらない」堅牢なVBScript自動化基盤が構築できる。
細部に神は宿る。今日のコードから、あなたのVBScriptをワンランク上のプロダクション品質へと引き上げてほしい。
