【コンソール画面タイトル・外観動的制御】CScriptとWScript.Shellによるコマンドプロンプトの動的演出技法
開発現場において、VBScript（Visual Basic Scripting Edition）は今なおレガシーシステムのバッチ処理や、ローカル端末のキッティング、定型的なファイル一括処理の自動化においてなくてはならない存在だ。
しかし、君たちはこんなフラストレーションを抱えたことがないか？
> 「黒い画面（コマンドプロンプト）が立ち上がって大量のログが流れるだけで、今スクリプトが全体のどのフェーズにいて、正常に動いているのか、フリーズしているのかさっぱりわからない」
> 「バックグラウンドで複数走らせた時、どれが何の処理をしているのかウィンドウを一発で識別できない」
GUIを持たないCUIスクリプトにおいて、ユーザーや管理者への「視覚的なフィードバック」は、システム全体の信頼性を左右する極めて重要な要素だ。
今回は、WSH（Windows Script Host）の実行エンジンである CScript と、OS環境を操作する WScript.Shell を極限まで使い倒し、コマンドプロンプトのウィンドウタイトルを動的に書き換え、タスクバー上でも進捗をリアルタイムに把握させるプロフェッショナルな演出技法を伝授する。
単なる小手先のテクニックではない。エンタープライズの現場で耐えうる堅牢性と、パフォーマンスを最適化したプロダクションコードを公開しよう。
—
1. なぜ「WScript」ではなく「CScript」なのか？
大前提として、この技法は CScript.exe で実行されることが必須条件となる。
VBScriptの実行には、GUIベースの `WScript.exe` と、CUIベースの `CScript.exe` が存在する。
`WScript.exe` でスクリプトを起動した場合、標準出力（`WScript.Echo` など）はメッセージボックスとしてポップアップ処理され、コンソールウィンドウそのものが存在しない、あるいは制御外となる。
ウィンドウタイトル（タイトルバー）を操作するということは、OSのコンソールサブシステムに対して直接働きかける必要があるため、必ずコンソールホストである `CScript` で実行させ、さらにスクリプト自身がそれを強制・担保する設計にしなければならない。
—
2. アーキテクチャ設計：安全なタイトル制御のメカニズム
Windowsのコマンドプロンプトのタイトルを変更するには、いくつかのアプローチがあるが、最も確実かつオーバーヘッドの少ない方法は、Windows標準のシェルコマンドである `title` を `WScript.Shell` の `Run` メソッド、あるいは環境変数やコマンド経由で実行することだ。
しかし、ここで素人が陥りがちな罠がある。
毎ステップごとに外部プロセス（`cmd.exe /c title …`）を乱発すると、プロセス生成のオーバヘッドによってスクリプト全体のパフォーマンスが著しく低下する。
そのため、以下のアーキテクチャを採用する。
1. セルフホスティング制御: 実行時エンジンが `CScript` かどうかを判定し、違えば自動的に `CScript` で自身を再起動する。
2. タイトル変更のカプセル化: タイトル変更用の専用サブルーチンを作成し、冗長なコードを排除する。
3. 進捗インジケータの統合: 処理のパーセンテージやステータスをタイトルバーに動的にレンダリングし、作業者が一目で把握できるようにする。
—
3. プロダクションコード：実用VBScript実装
以下のコードは、ファイル処理やデータベース連携などの重いバッチ処理を想定した、そのまま現場で使えるテンプレートだ。コピペして `.vbs` として保存し、コマンドプロンプトから `cscript script_name.vbs` で実行してみてほしい。
‘ ==============================================================================
‘ Script Name : DynamicConsoleController.vbs
‘ Description : CScriptとWScript.Shellを用いたウィンドウタイトル・進捗動的制御
‘ Author : Chief Architect
‘ ==============================================================================
Option Explicit
‘ 1. CScriptでの実行を強制するセルフホスティング・ガード
Call EnsureCScriptExecution()
‘ オブジェクトの生成（ライフサイクル管理の基本）
Dim objShell
Set objShell = WScript.CreateObject(“WScript.Shell”)
‘ メイン処理の実行
Call Main(objShell)
‘ クリーンアップ
Set objShell = Nothing
WScript.Quit(0)
‘ ==============================================================================
‘ メイン処理フロー
‘ ==============================================================================
Sub Main(shell)
Dim totalSteps, i, progressRate, dummyTime
totalSteps = 10
‘ 初期タイトルを設定
Call SetConsoleTitle(shell, “【初期化中】 システム起動シーケンス開始…”)
WScript.Echo “=== バッチ処理を開始します ===”
WScript.Sleep 1000
‘ 擬似的なループ処理（ファイル一括処理やDBインポートを想定）
For i = 1 to totalSteps
‘ 進捗率の計算
progressRate = CInt((i / totalSteps) 100)
‘ 【重要】処理ステータスをタイトルバーにリアルタイム反映
Call SetConsoleTitle(shell, “実行中… [” & progressRate & “%完了] (” & i & “/” & totalSteps & ” ステップ)”)
WScript.Echo “ステップ ” & i & ” の処理を実行中…”
‘ 重い処理のシミュレーション（DBアクセスやファイルI/Oの代わり）
‘ ※実務ではここにADO接続やFileSystemObjectの処理が入る
Randomize
dummyTime = Int((1500 – 500 + 1) Rnd + 500)
WScript.Sleep dummyTime
Next
‘ 完了時のタイトル更新と演出
Call SetConsoleTitle(shell, “【完了】 すべての処理が正常終了しました”)
WScript.Echo “=== すべての処理が正常に完了しました ===”
‘ ユーザーが結果を確認できるよう一時停止
WScript.Echo “何かキーを押すと終了します…”
‘ キー入力を待つハック（cmdのpauseコマンドを利用）
shell.Run “cmd /c pause > nul”, 0, True
End Sub
‘ ==============================================================================
‘ ウィンドウタイトル動的変更サブルーチン
‘ ==============================================================================
Sub SetConsoleTitle(shell, titleString)
‘ 内部コマンド “title” を実行するため cmd.exe を経由する
‘ 第2引数 ‘0’ (WindowStyle) はウィンドウ非表示、第3引数 ‘False’ は非同期実行（パフォーマンス優先）
‘ ※タイトル変更の瞬間に黒い画面がチラつくのを防ぐため、ウィンドウ非表示(0)でcmdを叩く
shell.Run “cmd.exe /c title ” & titleString, 0, True
End Sub
‘ ==============================================================================
‘ 実行ホスト判定ガード（CScript強制移行）
‘ ==============================================================================
Sub EnsureCScriptExecution()
Dim hostFullName, scriptName, cmdLine
hostFullName = WScript.FullName
‘ フルパスから実行バイナリ名を取得
If LCase(Right(hostFullName, 11)) = “wscript.exe” Then
scriptName = WScript.ScriptFullName
‘ CScriptで自身を再起動する（バッチの隠蔽オプション //nologo も付与）
CreateObject(“WScript.Shell”).Run “cscript.exe //nologo “”” & scriptName & “”””, 1, False
‘ WScript側のプロセスは即座に終了
WScript.Quit(0)
End If
End Sub
—
4. コードの解説とアーキテクトの知見
① `EnsureCScriptExecution` による環境の自己防衛
開発現場で最も多いトラブルの一つが、「一般ユーザーが誤ってファイルをダブルクリックし、`WScript.exe` で起動してエラーになる」というものだ。
このコードの冒頭にあるガード節は、実行ホストが `WScript.exe` であれば、自動的に `CScript.exe`（しかも余計なバナーを表示させない `//nologo` 付き）で自身をバックグラウンドで再起動し、旧プロセスをパージする。
これにより、ユーザーの操作ミスによる「動かない！」という問い合わせをゼロにできる。
② ウィンドウタイトルのちらつきを防ぐ設計
`WScript.Shell.Run` を使って `cmd.exe /c title …` を実行する際、第2引数（WindowStyle）に `0`（HIDE）を指定している点がポイントだ。
これを `1`（Normal）にしてしまうと、タイトルを変更するたびに一瞬だけ別のコマンドプロンプトの枠がチカチカと点滅し、非常に見苦しい。非表示でコマンドを流し込むことで、「まるで最初から専用GUIアプリのようにスムーズにタイトルが書き換わる」洗練されたUXを実現している。
③ タスクバーでの視認性向上
サーバーのメンテナンスや、複数のバッチ処理を同時に並行稼働させるシチュエーションを想像してほしい。
タスクバーに並んだ無数の黒いアイコンの上にマウスオーバーした時、あるいは一望した時に、タイトルが単なる「C:\Windows\System32\cscript.exe」ではなく、
> `実行中… [60%完了] (6/10 ステップ)`
と表示されていれば、オペレーターは作業の進捗を自席から離れても（あるいは他の作業をしながらでも）完璧に把握できる。
—
5. ファイル連携・データベース連携における実務的注意点
このコンソール制御を実際の業務システム（CSV一負荷、Oracle/SQL Serverへのバルクインサート等）に組み込む際は、以下の設計指針を厳守してほしい。
1. エラーハンドリング（`On Error Resume Next` の局所化）
データベース接続やファイルI/Oの前後では必ずエラーハンドリングを挟むこと。万が一例外が発生した場合でも、`Catch` ブロック（VBScriptでは `Err.Number` の監視）の中で必ずウィンドウタイトルを `【エラー発生】要ログ確認` に書き換えてからスクリプトを終了させよ。
2. ログファイルとの二重出力
コンソールタイトルや標準出力だけでなく、必ず `FileSystemObject` を用いてテキストログ（`C:\Logs\batch_YYYYMMDD.log`）へタイムスタンプ付きで出力する構造を維持すること。コンソールはあくまで「補助的なライブビュー」であり、監査証跡はログファイルが担う。
—
総括
VBScriptは古い言語と言われる。しかし、OSの根幹にダイレクトにタッチでき、環境構築のデプロイコストがゼロであるという圧倒的なアドバンテージは、現代の自動化シーンにおいても色褪せない。
今回紹介した「コンソールタイトルの動的制御」は、ほんの数十行のコード追加で、レガシーなバッチ処理を「モダンで洗練されたオブザーバブル（観測可能）なシステム」へと生まれ変わらせる魔法のスパイスだ。
君たちの現場の自動化ツールに、ぜひこの知見を組み込み、そのパフォーマンスとクオリティで周囲をうならせてほしい。
