VBScriptを掌握する極限の知見：WScript.ShellとPowerShellの融合による「モダン・トースト通知」の実装
開発現場のエンジニア諸君、日々の業務自動化ツール作成において、ユーザーへの「完了報告」や「エラー警告」にどのような手法を用いているだろうか。
古き良き `MsgBox` 関数。これほど手軽なものはない。しかし、考えてみてほしい。深夜のバッチ処理や、バックグラウンドで黙々とデータを処理するスクリプトが突然 `MsgBox` で処理を中断させ、ユーザーのクリックを待ち構えてフリーズしたように佇む姿を。あれは自動化の美学に反する。画面の前に人間が張り付いている前提のインターフェースなど、モダンな運用環境においては悪なのだ。
Windows 10および11の時代、OSの通知機構は「アクションセンター（トースト通知）」に統合された。バックグラウンドで静かに実行され、画面右下に洗練されたデザインでポップアップし、操作しなくても一定時間で自動消滅する――これこそが、現代の自動化スクリプトに求められる通知の姿である。
VBScript単体では、このリッチなトースト通知を直接生成するAPIを持たない。しかし、我々にはWindowsエコシステムの全権を握る「WScript.Shell」があり、その裏には無限の可能性を秘めた「PowerShell」が控えている。
今回は、VBScriptからPowerShellを背後でスマートに呼び出し、堅牢かつリッチなWindowsトースト通知を発行するプロダクションコードと、その裏にある設計思想を伝授しよう。
—
なぜ「VBScript単体」の限界を超える必要があるのか
VBScriptは1990年代後半からWindowsのインフラを支えてきた偉大なスクリプト言語だ。軽量であり、COMコンポーネントを通じてOSの深部にまでアクセスできる。しかし、時代は変わった。ユーザーエクスペリエンス（UX）の基準は劇的に上がっている。
`MsgBox` の問題点は以下の通りだ：
1. 処理の完全ブロック: ユーザーが「OK」を押すまで、スクリプトの実行スレッドが完全に停止する。
2. 視認性とデザインの古さ: 現代の洗練されたデスクトップ環境において、突然現れる素っ気ないグレーのダイアログはノイズでしかない。
3. ログの不整合: 処理が流れた後で「何が起きたのか」を後追い確認できない（通知センターに残らない）。
これらを解決するのが、PowerShellの `Windows.UI.Notifications` APIを叩く手法である。これをVBScriptから「見えない形で」安全に呼び出すアーキテクチャを構築する。
—
アーキテクチャ設計：WScript.Shell と PowerShell の安全な同居
VBScriptから外部プロセスを叩く際、最も忌むべきは「コマンドインジェクション」と「ゾンビプロセスの発生」、そして「コンソール画面のチラつき（黒い画面の瞬間表示）」である。
1. 黒い画面（cmd/powershellウインドウ）を完全に隠す
`WScript.Shell` の `Run` メソッドの第2引数に `0`（WindowStyle = Hide）を指定し、さらにPowerShell側で `-WindowStyle Hidden` を明示する。これにより、ユーザーにスクリプトの実行を意識させない「完全バックグラウンド処理」を実現する。
2. 特殊文字のエスケープとパラメータ渡し
VBScript内の文字列をそのままPowerShellに渡すと、パス内のスペースや日本語、ダブルクォーテーションで構文エラーを起こす。これを回避するため、PowerShellスクリプトを一時ファイルとして生成するか、Base64エンコードして渡すのがプロの作法だ。今回は、実運用で最も保守性が高く、コードの可読性を保てる「一時PowerShellスクリプトの動的生成・実行・即時削除」のライフサイクルを採用する。
—
プロダクションコード：RobustToast.vbs
以下のコードは、エラーハンドリング、一時ファイルの安全なクリーンアップ、そして可変引数によるタイトルの動的変更を網羅した、現場でそのまま使える実用スクリプトである。
‘ ==============================================================================
‘ Script Name : RobustToast.vbs
‘ Description : WScript.Shell と PowerShell を連携させ、リッチなトースト通知を送信する
‘ Author : Chief Architecture Engineer
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Call SendToastNotification(“業務自動化システム”, “すべてのバッチ処理が正常に完了しました。”, “Success”)
Sub SendToastNotification(strTitle, strMessage, strType)
Dim objShell, objFSO, objStream
Dim strTempDir, strPsScriptPath, strCommand
Dim lngResult
‘ オブジェクトのインスタンス化
Set objShell = CreateObject(“WScript.Shell”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
On Error Resume Next
‘ 一時フォルダのパスを取得
strTempDir = objFSO.GetSpecialFolder(2) ‘ TemporaryFolder (2)
strPsScriptPath = strTempDir & “\_toast_task_” & GetTickCount() & “.ps1”
‘ PowerShellスクリプトのコンテンツを構築（ヒアドキュメント風に記述）
Dim strPsCode
strPsCode = “” & _
“[Windows.UI.Notifications.ToastNotificationManager, Windows.UI.Notifications, ContentType = WindowsRuntime] > $null;” & _
“$template = [Windows.UI.Notifications.ToastNotificationTemplateType]::ToastText02;” & _
“$xml = [Windows.UI.Notifications.ToastNotificationManager]::GetTemplateContent($template);” & _
“$textNodes = $xml.GetElementsByTagName(‘text’);” & _
“$textNodes.Item(0).AppendChild($xml.CreateTextNode(‘” & EscapePsString(strTitle) & “‘)) > $null;” & _
“$textNodes.Item(1).AppendChild($xml.CreateTextNode(‘” & EscapePsString(strMessage) & “‘)) > $null;” & _
“$toast = [Windows.UI.Notifications.ToastNotification]::new($xml);” & _
“[Windows.UI.Notifications.ToastNotificationManager]::CreateToastNotifier(‘VBScript Automation Engine’).Show($toast);”
‘ 一時PowerShellスクリプトファイルをUTF-8（BOM付きまたはBOMなし）で書き出し
‘ ※PowerShellが日本語を正しく解釈できるようにするため、ADODB.Streamを使用する
Set objStream = CreateObject(“ADODB.Stream”)
objStream.Type = 2 ‘ adTypeText
objStream.Charset = “UTF-8”
objStream.Open
objStream.WriteText strPsCode
objStream.SaveToFile strPsScriptPath, 2 ‘ adSaveCreateOverWrite
objStream.Close
Set objStream = Nothing
If Err.Number <> 0 Then
‘ ファイル書き込みエラー等のハンドリング
MsgBox “通知スクリプトの生成に失敗しました: ” & Err.Description, vbCritical, “致命的エラー”
Exit Sub
End If
‘ PowerShellを完全に非表示(-WindowStyle Hidden)で実行し、完了を待つ(True)
‘ 実行ポリシーを一時的にバイパス(-ExecutionPolicy Bypass)してセキュリティ制約を回避
strCommand = “powershell.exe -NoProfile -ExecutionPolicy Bypass -WindowStyle Hidden -File “”” & strPsScriptPath & “”””
‘ 第3引数を True にすることで、PowerShellの処理完了までVBScript側を同期待機させる
lngResult = objShell.Run(strCommand, 0, True)
‘ クリーンアップ：生成した一時ファイルを確実に削除
If objFSO.FileExists(strPsScriptPath) Then
objFSO.DeleteFile strPsScriptPath, True
End If
On Error GoTo 0
‘ オブジェクトの解放
Set objFSO = Nothing
Set objShell = Nothing
End Sub
‘ ——————————————————————————
‘ 補助関数: PowerShellに渡す文字列内のシングルクォートをエスケープする
‘ ——————————————————————————
Function EscapePsString(strInput)
EscapePsString = Replace(strInput, “‘”, “””)
End Function
‘ ——————————————————————————
‘ 補助関数: 一意のファイル名を生成するためのティックカウンター取得
‘ ——————————————————————————
Function GetTickCount()
Dim objWMIService, colItems, objItem
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select from Win32_OperatingSystem”)
For Each objItem in colItems
‘ 代替としてWMIの機能を利用してミリ秒に近い値を作るか、ランダム値を返す
Next
Randomize
GetTickCount = Int((999999 – 100000 + 1) Rnd + 100000)
End Function
—
現場のエンジニアへ送る、実装上の「急所」と注意点
このコードをプロダクション環境に導入するにあたり、シニアとしていくつかの「急所（落とし穴）」を解説しておこう。
1. 文字コードの罠（Shift-JIS vs UTF-8）
VBScriptの標準的なファイル入出力（`Scripting.FileSystemObject` の `CreateTextFile` など）はデフォルトで ANSI (Shift-JIS) を吐く。しかし、PowerShellに日本語を渡す際、スクリプトのエンコーディングが原因で文字化けを起こすケースが後を絶たない。上記のコードでは、堅牢性を担保するために `ADODB.Stream` を用いて明示的に `UTF-8` で一時ファイルを書き出している。この一手間が、多言語環境やOSのロケール差異に起因するバグを防ぐ防壁となる。
2. 実行ポリシー（ExecutionPolicy）の壁
企業のセキュリティポリシーが厳格な環境では、PowerShellのスクリプト実行がデフォルトでブロックされている（`Restricted`）。そのため、`Run` メソッドの引数で `-ExecutionPolicy Bypass` を付与し、そのセッション内でのみポリシーを無効化して安全に実行させるアプローチが実務では必須となる。
3. オブジェクトのライフサイクルとメモリリークの防止
VBScriptには自動ガベージコレクションはあるものの、COMオブジェクト（特に `WScript.Shell` や `ADODB.Stream`）は明示的に `Set xxx = Nothing` で解放し、メモリ空間をクリーンに保つのがプロの流儀だ。特に長期間稼働する常駐型スクリプトや、ループ内で何度もこの関数を呼び出すような設計にする場合は、リソースリークを防ぐためにこの作法を絶対に守ること。
—
総括
VBScriptは「古い言語」と揶揄されることもある。しかし、Windowsのアーキテクチャの根底を理解し、PowerShellなどのモダンなC#/.NETランタイムの機能を適切にブリッジ（架橋）してやれば、現代の最先端OS環境においても第一線で戦える強力な自動化武器に変貌する。
ダイアログの「OK」をクリックするために人間がモニターの前に座る時代は終わった。バックグラウンドで静かに、かつリッチに語りかけてくるスマートな自動化ツールを、あなたの現場にも導入してほしい。
