一時ファイルに頼るな。WScript.Shell.Exec を極め、プロセス間通信を完全に掌握する
業務自動化の現場において、VBScriptは今なお強力な武器だ。しかし、多くの開発者が「外部ツールとの連携」という壁にぶつかった際、取る手段はあまりに稚拙で、かつ脆弱である。
「一時ファイルに結果を書き出し、それを読み取る」
「環境変数にパラメータを詰め込み、子プロセスに渡す」
もし君が、これらを標準的な設計と考えているのなら、今すぐその思考を捨ててほしい。これらは「I/Oオーバーヘッド」「競合状態（Race Condition）」「セキュリティリスク」という、プロフェッショナルが最も忌むべき三悪を抱え込んでいる。
本稿では、真に堅牢な自動化ツールを構築するために不可欠な、`WScript.Shell.Exec` を用いた標準入出力（Standard I/O）による双方向プロセス間通信（IPC）の極意を伝授する。
1. なぜ「ファイル連携」はプロの設計ではないのか
まず、君たちの設計思想をアップデートするための論理的な理由を提示する。
I/Oパフォーマンスの欠如
ディスクへの書き込みと読み込みは、メモリ上でのデータ交換に比べて桁違いに遅い。ループ内で頻繁に外部ツールを叩く設計において、一時ファイル生成のコストは無視できない。
状態管理の不完全性
一時ファイルを用いた設計では、「ファイルが正しく削除されたか」「前のプロセスの残骸が残っていないか」という、アプリケーションのロジックとは無関係な「環境の状態」に依存することになる。これは、並列実行時に致命的なバグ（ファイルロックや上書き）を引き起こす。
セキュリティの脆弱性
機密性の高いデータを一時ファイルに書き出す行為は、ディスク上に平文の痕跡を残すことを意味する。メモリ（パイプ）経由での通信こそが、データの揮発性を担保する唯一の手段だ。
2. `WScript.Shell.Exec` の真価と「デッドロック」の罠
VBScriptで外部プロセスを制御する際、`Run` メソッドは「投げっぱなし」の実行には向いているが、対話的な制御には向かない。そこで登場するのが `Exec` メソッドである。
`Exec` は、実行したプロセスの `StdIn`（標準入力）、`StdOut`（標準出力）、`StdErr`（標準エラー出力）へのストリームへのハンドルを返してくれる。これこそが、メモリ上でのダイレクトな通信路（パイプ）だ。
【警告】初心者が必ず陥る「デッドロック」
ここで、極めて重要な技術的知見を共有しておく。`Exec` を使う際に最も恐ろしいのは、バッファの飽和によるデッドロックだ。
子プロセスが大量のログを `StdOut` に吐き出している最中に、親プロセス（VBScript）が `StdIn` への書き込みを待機したり、あるいは `StdOut` を読み取る前に次の処理に進もうとすると、OSのパイプバッファが一杯になり、子プロセスは書き込めず、親プロセスは読み込めず、システム全体が凍結する。
この問題を回避するには、「非ブロッキングな読み取り」、あるいは「ストリームの生存確認を行いながらの慎重な読み取り」を設計に組み込む必要がある。
3. プロダクション・グレードの設計：双方向通信の実装
では、実際にどのように実装すべきか。
単なるコードの羅列ではなく、再利用性と堅牢性を担保した「オブジェクト指向的アプローチ」による実装例を示す。
以下のコードは、対話型のCLIツール（今回はシミュレーションとして PowerShell を使用）に対し、コマンドを送り、そのレスポンスをリアルタイムに解析する構造になっている。
' ==========================================================================
' Module: ProcessController
' Description: WScript.Shell.Exec を用いた堅牢なプロセス間通信エンジン
' Author: Chief Architect
' ==========================================================================
Option Explicit
Class ProcessController
Private shell
Private process
Private strCommand
' プロセスの初期化
Public Sub Initialize(ByVal command)
Set shell = CreateObject("WScript.Shell")
strCommand = command
End Sub
' プロセスの起動
Public Function Launch() As Boolean
On Error Resume Next
Set process = shell.Exec(strCommand)
If Err.Number <> 0 Then
WScript.Echo "Error: プロセスの起動に失敗しました - " & Err.Description
Launch = False
Else
Launch = True
End If
On Error GoTo 0
End Function
' 標準入力へのコマンド送信
Public Sub SendCommand(ByVal cmd)
If Not process Is Nothing Then
' コマンドの末尾に改行を付与してパイプに流し込む
process.StdIn.WriteLine cmd
End If
End Sub
' 標準出力からのリアルタイム読み取り（デッドロック回避型）
' 戻り値: 取得した文字列。データがない場合は空文字。
Public Function ReadResponse() As String
Dim strOutput
strOutput = ""
If Not process Is Nothing Then
' StdOutにデータが流れてきているかを確認（AtEndOfStreamの逆）
' ここではReadLineを使用するが、実務ではTimeout設計を検討すべき
On Error Resume Next
If Not process.StdOut.AtEndOfStream Then
strOutput = process.StdOut.ReadLine
End If
On Error GoTo 0
End If
ReadResponse = strOutput
End Function
' 標準エラー出力の確認（デバッグ・エラーハンドリング用）
Public Function GetError() As String
Dim strErr
strErr = ""
If Not process Is Nothing Then
If Not process.StdErr.AtEndOfStream Then
strErr = process.StdErr.ReadLine
End If
End If
GetError = strErr
End Function
' プロセスの終了待機と終了コードの取得
Public Function GetExitCode() As Integer
If Not process Is Nothing Then
GetExitCode = process.ExitCode
Else
GetExitCode = -1
End If
End Function
' オブジェクトの解放
Public Sub Terminate()
If Not process Is Nothing Then
' 強制終了が必要な場合は Taskkill 等を検討
Set process = Nothing
End If
Set shell = Nothing
End Sub
End Class
' ==========================================================================
' Main Execution Logic
' ==========================================================================
Dim controller
Dim targetCmd, response, cmdInput
' 今回はデモとして、入力を待機する PowerShell プロセスをターゲットにする
' 本来は自作のCLIツールやPythonスクリプトなどを指定する
targetCmd = "powershell -NoProfile -Command ""$input = Read-Host; Write-Host ('ACK: ' + $input); exit 0"""
Set controller = New ProcessController
controller.Initialize(targetCmd)
WScript.Echo "--- プロセス通信を開始します ---"
If controller.Launch() Then
' 1. コマンドの送信
cmdInput = "Hello_Architect"
WScript.Echo "Sending: " & cmdInput
controller.SendCommand(cmdInput)
' 2. レスポンスの取得（ループによるポーリング）
' 実務では、タイムアウト時間を設けて無限ループを防止すること
Dim timeoutCounter
timeoutCounter = 0
Do
response = controller.ReadResponse()
If response <> "" Then
WScript.Echo "Received: " & response
Exit Do
End If
WScript.Sleep 100 ' CPU負荷軽減のための待機
timeoutCounter = timeoutCounter + 1
' タイムアウト設計（例: 5秒）
If timeoutCounter > 50 Then
WScript.Echo "Error: タイムアウトしました。"
Exit Do
End If
Loop
' 3. エラーチェック
Dim errLog
errLog = controller.GetError()
If errLog <> "" Then WScript.Echo "StdErr: " & errLog
' 4. 終了コードの確認
WScript.Echo "Exit Code: " & controller.GetExitCode()
controller.Terminate
Else
WScript.Echo "Failed to launch process."
End If
WScript.Echo "--- 通信終了 ---"4. 実務における設計の要諦
このコードを単なるサンプルとして終わらせてはいけない。プロフェッショナルとして、以下の3点を設計の「鉄則」として刻んでおけ。
① タイムアウトは「必須」である
`StdOut.ReadLine` や `process.WaitForExit` は、条件が満たされない限りスクリプトの実行を停止させる。外部プロセスが予期せずハングアップした場合、君の自動化ツールも共に死ぬ。必ずカウンタを用いたポーリング、あるいは `WshShell.Run` と組み合わせた時間管理を導入せよ。
② エラー出力（StdErr）を無視するな
ロジックが正しいのに動かない場合、その原因の9割は `StdErr` に隠されている。`StdOut` と `StdErr` は別々のストリームだ。`StdOut` だけを監視する設計は、盲目のドライバーと同じである。
③ ステートレスな設計を心がけよ
プロセスとの通信は、常に「送って、待って、受け取る」というアトミック（不可分）な単位で考えよ。プロセスが中間状態でクラッシュした場合に備え、親プロセス側で「現在の状態」を追跡し、必要に応じてプロセスを再起動・クリーンアップする仕組みを持つことが、堅牢なツールの条件だ。
結論
一時ファイルに頼る設計は、技術的負債の温床だ。
`WScript.Shell.Exec` を使いこなし、パイプを通じてメモリ上でデータをやり取りする。この一歩が、君の書くコードを「単なるスクリプト」から「信頼に足るシステム」へと昇華させる。
「動けばいい」のではない。「いかに美しく、いかに壊れにくいか」を常に問え。
