VBScriptを「ステルス化」せよ：CScriptコンソールを完全消去する極限の技術
業務自動化の現場において、VBScriptは依然として強力な武器だ。しかし、タスクスケジューラや手動実行のたびに現れる「黒いコマンドプロンプトの閃光」は、エンドユーザーに無用な不安を与え、プロフェッショナルなツールとしての品位を損なう。
多くの技術者がここで陥る罠が、「とりあえず最小化する」という安易な妥協だ。我々が目指すべきは、「最初から存在しなかったかのように振る舞う」高品位なバックグラウンド実行である。
本稿では、CScriptの制約を打破し、ウィンドウを完全に制御して業務をスマートに完結させるための極限の知見を授ける。
—
なぜ「CScript」の起動直後にウィンドウが出るのか
WSHには `WScript.exe` と `CScript.exe` が存在する。CScriptは標準入出力をコンソールに紐付ける性質上、起動時に必ずウィンドウを確保しようとする。
これを力技で消すには、二つのアプローチがある。
1. WScript経由の再帰実行（ラッパーパターン）
2. Windows API (User32) による動的ウィンドウ制御
後者は高度だが、今回は保守性と堅牢性を両立させた「ラッパーパターン」を伝授する。これは、VBScript自身を `WScript.exe`（GUIホスト）で再起動させ、自分自身のコンソールを完全に切り離す手法だ。
—
【実用コード】ステルス実行を実現するランチャー設計
以下のコードは、自身の実行環境をチェックし、CScriptで起動されていた場合はWScriptへ「憑依」して再起動する設計だ。これにより、コンソールウィンドウは生成されず、バックグラウンドで処理が完結する。
‘ ==============================================================================
‘ ステルス実行ラッパー (StealthLauncher.vbs)
‘ 役割：CScript実行を検知し、WScriptへプロセスを昇華させる
‘ ==============================================================================
Option Explicit
If IsCScript() Then
‘ CScriptならWScriptで自分自身を再起動して終了
ExecuteStealth
Else
‘ ここからが本番の業務ロジック
Main
End If
‘ 実行環境判定：CScriptならTrue
Function IsCScript()
Dim hostName
hostName = LCase(WScript.FullName)
IsCScript = (Right(hostName, 11) = “cscript.exe”)
End Function
‘ WScriptで再実行し、自分は消える
Sub ExecuteStealth()
Dim shell, fso, scriptPath
Set shell = CreateObject(“WScript.Shell”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
scriptPath = WScript.ScriptFullName
‘ WScript.exeで再起動
shell.Run “wscript.exe “”” & scriptPath & “”””, 0, False
WScript.Quit
End Sub
‘ メイン処理：ここに業務ロジックを記述する
Sub Main()
‘ 例：ログ出力（非表示のためコンソールには出ない）
Dim fso, logFile
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set logFile = fso.OpenTextFile(“C:\Logs\auto.log”, 8, True)
logFile.WriteLine Now & ” : バックグラウンド処理を開始しました。”
logFile.Close
‘ ここに重い処理やAPI連携を記述
‘ …
End Sub
—
アーキテクトからの助言：堅牢な自動化のために
この手法を採用する際、君たちが留意すべき「現場の鉄則」を伝えておく。
1. 「コンソール出力」への依存を断つ
コンソールを消すということは、`WScript.Echo` が機能しない（あるいはエラーを吐く）ことを意味する。デバッグや進捗報告には、必ず外部ログファイルへの書き出しか、イベントログへの出力を実装すること。`WScript.Echo` に頼った開発は、プロフェッショナルとは呼べない。
2. ファイルアクセスの競合を防ぐ
バックグラウンド実行は、ユーザーが気づかないうちに複数重なって起動するリスクがある。WMIなどでプロセスを監視するか、処理開始時に「ロックファイル」を生成し、終了時に削除する排他制御メカニズムを必ず組み込め。
3. API連携時の例外処理
`User32.dll` 等を直接呼び出す際、環境（OSのビット数や権限）によってメモリ空間が保護されている場合がある。VBScriptでWin32 APIを直接叩くのはトリッキーなため、可能な限り標準の `WScript.Shell` や `FileSystemObject` で完結させ、どうしても必要な場合のみ `CreateObject(“WScript.Shell”)` の `Run` メソッドのウィンドウ表示オプション（`0`を指定）を活用せよ。
—
最後に：自動化とは「空気」であるべきだ
優れた自動化ツールとは、存在を意識させないものである。ユーザーがキーボードを叩いている裏側で、何食わぬ顔でデータを整理し、メールを送り、DBを更新する。
今回教えた手法は、その「透明な自動化」を実現するための第一歩だ。コードをコピペして満足するのではなく、なぜこの構造が安定するのかを、プロセス管理の観点から深く洞察してほしい。
君たちが書くスクリプトが、明日の誰かの業務を、より静かに、より確実に救うことを期待している。
