【WSHからPowerShell双方向連携】WScript.Shell.Execを用いたPowerShellコマンドレットのリアルタイム出力取得と制御
開発現場でいまだに根強い需要を誇るVBScript。しかし、その最大の弱点は「時代の進化に取り残された機能セット」にある。JSONのネイティブパースすらできず、モダンなWindows APIやクラウド連携、高度な文字列処理を行おうとすれば途方に暮れる。
だが、ここで絶望する必要はない。WScript.Shell.Execメソッドを用いれば、VBScriptの懐（ふところ）に最新のPowerShellエンジンを宿し、無限の拡張性を手に入れることができる。
今回は、単にPowerShellを呼び出すだけではない。「ストリームを監視し、リアルタイムに出力を取得しながら、双方向でデータを制御する」という、プロダクション環境で耐えうる極限のテクニックを伝授する。
—
なぜ `Run` ではなく `Exec` なのか？
VBScriptから外部プロセスを叩く際、多くのエンジニアが `WScript.Shell.Run` を選択する。だが、これは大きな間違いだ。
`Run` はプロセスを非同期または同期で起動できるが、標準出力（Stdout）や標準入力（Stdin）をスクリプト側で直接制御することができない。結果として、出力を取得するためには一時ファイルを介すという、I/Oのボトルネックを生む最悪の設計に行き着く。
一方、`Exec` メソッドは `WshScriptExec` オブジェクトを返す。 これにより以下のメリットが生まれる。
1. メモリ上のストリーム制御: ファイルI/Oを発生させず、プロセス間のパイプラインで完結する（高速かつセキュア）。
2. リアルタイム性: プロセスが完了するのを待たず、出力（Stdout/StdErr）を1行ずつポーリングしてVBScript側で処理できる。
3. インタラクティブ性: `StdIn.Write` を通じて、起動中のPowerShellへ動的にコマンドやデータを流し込める。
—
堅牢な双方向連携アーキテクチャの設計
PowerShellとVBScriptを連携させる際、最大の罠となるのが「文字コード（エンコーディング）」と「ブロック（死活監視）」だ。
- 文字コード問題: PowerShellのデフォルト出力はUTF-8だが、環境によってはBOMなしやUTF-16（Unicode）になり、VBScript側で文字化けを起こす。明示的に `-Encoding` や `[Console]::OutputEncoding` を制御する必要がある。
- 無限ループとCPU高騰: `AtEndOfStream` を安易な `While` ループで監視すると、CPU使用率が100%に張り付く。適切なスリープ（`WScript.Sleep`）を挟むか、イベント駆動に近いポーリング設計が不可欠である。
—
【実践】プロダクションコード：リアルタイムログ取得と双方向制御
以下のコードは、VBScriptからPowerShellを起動し、長時間の処理を行うコマンドレットを実行させつつ、その進行状況（標準出力）をリアルタイムで取得、さらにエラーハンドリングまで網羅した実用スクリプトである。
そのままコピー＆ペーストし、拡張子を `.vbs` にして実行してほしい。
‘ ==============================================================================
‘ Script Name: WshExec_PowerShell_Bridge.vbs
‘ Description: WScript.Shell.Execを用いたPowerShellとの双方向リアルタイム連携
‘ Author: Chief Automation Architect
‘ ==============================================================================
Option Explicit
Sub Main()
Dim shell, exec, psCommand
Dim line, errLine
Dim startTime
WScript.Echo “=== VBScript & PowerShell Bridge 起動 ===”
startTime = Timer()
‘ 1. 実行するPowerShellコマンドの構築
‘ ※今回はデモとして、1秒おきに3回カウントアップし、最後にJSONを返す処理を模倣する
psCommand = “powershell.exe -NoProfile -NonInteractive -ExecutionPolicy Bypass -Command “”” & _
“$OutputEncoding = [System.Text.Encoding]::UTF8; ” & _
“[Console]::OutputEncoding = [System.Text.Encoding]::UTF8; ” & _
“Write-Output ‘STATUS: Initialize PowerShell Engine…’; ” & _
“for($i=1; $i -le 3; $i++) { ” & _
” Start-Sleep -Seconds 1; ” & _
” Write-Output (‘PROGRESS: Processing item ‘ + $i); ” & _
“} ” & _
“Write-Output ‘RESULT_JSON: {“”status””:””success””,””code””:200}’; ” & _
“”””
‘ 2. WScript.Shellの生成と Exec によるプロセス実行
Set shell = CreateObject(“WScript.Shell”)
Set exec = shell.Exec(psCommand)
‘ 3. リアルタイムストリーム監視ループ
‘ プロセスが生存している間、または出力ストリームにデータがある間ループする
Do While exec.Status = 0 Or Not exec.StdOut.AtEndOfStream
‘ 標準出力のバッファにデータがあれば1行ずつ取得
If Not exec.StdOut.AtEndOfStream Then
line = exec.StdOut.ReadLine()
Call ProcessOutput(line)
End If
‘ 標準エラー出力の監視（エラー発生時の即座検知）
If Not exec.StdErr.AtEndOfStream Then
errLine = exec.StdErr.ReadLine()
WScript.Echo “[ERROR] ” & errLine
End If
‘ CPU使用率の暴騰を防ぐための極小ウェイト
WScript.Sleep 50
Loop
‘ 4. 終了ステータスの確認
If exec.ExitCode = 0 Then
WScript.Echo “=== 処理が正常終了しました (経過時間: ” & FormatNumber(Timer() – startTime, 2) & “秒) ===”
Else
WScript.Echo “=== 異常終了しました。ExitCode: ” & exec.ExitCode & ” ===”
End If
Set exec = Nothing
Set shell = Nothing
End Sub
‘ ==============================================================================
‘ 受信した標準出力をパースし、プレフィックスに応じてVBScript側の処理を分岐
‘ ==============================================================================
Sub ProcessOutput(ByVal rawLine)
If Len(Trim(rawLine)) = 0 Then Exit Sub
‘ プレフィックスによるルーティング制御
If InStr(rawLine, “STATUS:”) = 1 Then
WScript.Echo “[VBS-Info] 状態変化: ” & Mid(rawLine, 8)
ElseIf InStr(rawLine, “PROGRESS:”) = 1 Then
‘ ここで進捗率に応じたロジックやログ記録を行える
WScript.Echo “[VBS-Progress] ” & Mid(rawLine, 10)
ElseIf InStr(rawLine, “RESULT_JSON:”) = 1 Then
Dim jsonStr
jsonStr = Mid(rawLine, 13)
WScript.Echo “[VBS-Data] ペイロード受信成功 -> ” & jsonStr
‘ ※実務ではここでVBScript側でJSONをパースする自作関数などに渡す
Else
‘ その他の出力
WScript.Echo “[PS-Raw] ” & rawLine
End If
End Sub
‘ エントリポイントの呼び出し
Call Main()
—
アーキテクチャ上の重要注意点とトラブルシューティング
この手法を実務の業務自動化ツールに組み込む際、以下のポイントを押さえておかないと、本番環境で思わぬ障害を引き起こす。
1. デッドロック（Deadlock）の回避
PowerShell側が大量のデータ（数百MBのテキストなど）を `StdErr` や `StdOut` に吐き出し続けたまま、VBScript側がそれを読み取らずにプロセス終了を待つと、バッファが溢れてプロセスが永久停止（デッドロック）する。
必ず上記のコードのように、`Do While` ループ内でストリームを常に読み取り続ける設計にすること。
2. 実行ポリシー（ExecutionPolicy）の壁
企業のクライアント端末では、PowerShellのスクリプト実行ポリシーが `Restricted` や `AllSigned` に厳しく制限されていることが多い。
コード例の通り、`-ExecutionPolicy Bypass`（または `-ExecutionPolicy Unrestricted`）を引数に付与し、かつインラインコマンド（`-Command`）として渡すことで、スクリプトファイル `.ps1` を現地に残さずに安全にメモリ上で実行させることが可能となる。
3. 文字コードの強制
日本語環境のWindowsにおいて、PowerShellのデフォルト出力は環境依存（Shift-JISかUTF-8か）になりがちである。これを怠ると、VBScript側で文字化けや予期せぬパースエラーが発生する。
PowerShell起動直後に `$OutputEncoding = [System.Text.Encoding]::UTF8` を明示的に宣言する処理を挟むことは、エンタープライズ開発における必須の作法である。
—
総括
VBScript単体ではもはや時代遅れのレガシー技術にすぎない。しかし、WScript.Shell.Exec を通じてPowerShellのモダンなエコシステムと結合させた瞬間、それは「最強のローカルオーケストレーションツール」へと変貌を遂げる。
ファイルI/Oを排除した高速なストリーム制御、リアルタイムなプログレス監視。この設計パターンをあなたの自動化スクリプトにインストールし、レガシーとモダンの融合による圧倒的な開発生産性を体感してほしい。
