VBScriptを掌握する極限の知見：CScript環境におけるANSIエスケープシーケンスを活用した高度なコンソールカラー制御
レガシーシステムの裏側で、今なお静かに、しかし確実に対象マシンを駆動し続けているVBScript。WSH（Windows Script Host）の`CScript.exe`によるCUIバッチ処理は、インフラの自動化や日次バッチの要塞として機能している。
しかし、長年運用されてきたCLIツールが抱える最大の課題は、「出力ログの視認性の低さ」である。
コンソールに吐き出される文字は、ただ無機質にモノクロで流れていく。どの行が致命的なエラーで、どの行が正常終了のシグナルなのか。それを判別するためには、開発者やオペレーターがログの文字列を目視でパースしなければならない。
本稿では、レガシーとモダンが交差するWindows環境において、外部の重厚なサードパーティ製DLLに一切依存せず、OS標準の機能のみでCScriptの出力を極限までリッチ化するANSIエスケープシーケンスによるコンソール制御技術を解説する。
—
1. 根本的な課題：なぜ標準のVBScriptには色がないのか
VBScriptの起源は1990年代後半に遡る。当時、`WScript.Echo` や `WScript.StdOut.Write` は、純粋なテキストストリームをコンソールに流し込むことだけを目的として設計されていた。Windowsのデフォルトコンソール（cmd.exe）は、長らくANSIエスケープシーケンスの解釈をデフォルトでサポートしていなかったため、文字の色を変えるためには過酷なWindows API（`SetConsoleTextAttribute`など）を `WScript.Shell` の奥底から呼び出すか、巨大なCOMラッパーを書く必要があった。
だが、Windows 10 / Windows 11 / Windows Serverのモダンな環境では、コンソールホスト（ConHost）およびWindows Terminalが標準でANSIエスケープシーケンスをネイティブサポートしている。
VBScript側から適切なエスケープシーケンスを含むバイト列（文字列）を標準出力に流し込むだけで、現代のLinuxターミナルに見劣りしない、鮮やかな色彩とカーソル制御を手に入れることができるのだ。
—
2. アーキテクチャ設計：ANSIエスケープシーケンスの直撃
コンソールの色を制御するためには、CSI（Control Sequence Introducer）である `ESC[0m` などの特殊文字シーケンスをストリームに挿入する。VBScriptでは、ASCIIコードの `27`（16進数で `&H1B`）をエスケープ文字として扱う。
シニアエンジニアが知るべき基本シーケンス
- リセット: `\x1b[0m` （すべてのスタイルと色を初期化）
- 文字色（前景色）: `\x1b[31m` (赤), `\x1b[32m` (緑), `\x1b[33m` (黄), `\x1b[36m` (シアン) 等
- スタイル: `\x1b[1m` (太字), `\x1b[4m` (アンダーライン)
これらを素の文字列結合で扱うと、コードベースがスパゲッティ化し、メモリ上での不要な文字列生成（ガベージコレクションの圧迫）を招く。
ここでは、オブジェクト指向的なカプセル化の発想をVBScriptのクラス（Class）に持ち込み、洗練されたコンソールロガーを構築する。
—
3. 実装：極限まで最適化されたコンソールカラー制御クラス
以下のコードは、エラーハンドリング、ANSIの有効化、そしてメモリ管理を徹底したプロダクションクオリティのVBScriptである。そのまま `.vbs` として保存し、`CScript` で実行してほしい。
‘ ==============================================================================
‘ File: ConsoleLogger.vbs
‘ Description: CScript environment ANSI color logger with lifecycle management
‘ Author: Chief Architect
‘ ==============================================================================
Option Explicit
‘ 実行環境が CScript かどうかを厳密に検証（WScriptでの誤実行を阻止）
If InStr(LCase(WScript.FullName), “cscript.exe”) = 0 Then
WScript.Echo “【致命的エラー】このスクリプトは CScript.exe で実行する必要があります。” & vbCrLf & _
“コマンドプロンプトから ‘cscript ” & WScript.ScriptName & “‘ として実行してください。”
WScript.Quit 1
End If
‘ Loggerクラスのインスタンス化と実行
Dim logger
Set logger = New ConsoleLogger
logger.Initialize()
‘ デモ実行
logger.Info “システム初期化シーケンスを開始します…”
logger.Debug “メモリプールのアロケーションサイズ: 4096 KB”
logger.Warn “警告: データベースの応答遅延が検知されました (Threshold: 500ms)”
logger.Error “致命的例外: 接続タイムアウトによりトランザクションがロールバックされました。”
logger.Success “バッチ処理は正常に完了しました。”
‘ 明示的なオブジェクト解放（メモリ最適化の極意）
logger.Terminate()
Set logger = Nothing
WScript.Quit 0
‘ ==============================================================================
‘ Class: ConsoleLogger
‘ ANSIエスケープシーケンスを利用してコンソール出力を装飾するクラス
‘ ==============================================================================
Class ConsoleLogger
Private m_StdOut
Private m_StdErr
Private m_Enabled
‘ コンストラクタ
Private Sub Class_Initialize()
Set m_StdOut = WScript.StdOut
Set m_StdErr = WScript.StdErr
m_Enabled = True
End Sub
‘ デストラクタ：確実な参照切断
Private Sub Class_Terminate()
Set m_StdOut = Nothing
Set m_StdErr = Nothing
End Sub
‘ 初期化処理（必要に応じてWindows 10以降のレジストリやAPIを考慮するが、
‘ 基本はエスケープシーケンスの出力準備を行う）
Public Sub Initialize()
‘ モダンなWindows環境では標準でANSIが有効だが、
‘ 必要であればここでWshShellを用いたレジストリ調整なども行える。
EI
Public Sub Terminate()
‘ 終了時にカラーを確実にリセット
Me.Reset()
End Sub
‘ — ログ出力メソッド群 —
Public Sub Info(ByVal message)
WriteLog “INFO”, message, “36” ‘ シアン
End Sub
Public Sub Debug(ByVal message)
WriteLog “DEBUG”, message, “90” ‘ 明るい黒（グレー）
End Sub
Public Sub Warn(ByVal message)
WriteLog “WARN”, message, “33” ‘ 黄色
End Sub
Public Sub [Error](ByVal message)
‘ エラーはStdErr（標準エラー出力）へ流すのがインフラエンジニアの流儀
WriteStdErr “ERROR”, message, “31” ‘ 赤
End Sub
Public Sub Success(ByVal message)
WriteLog “SUCCESS”, message, “32” ‘ 緑
End Sub
‘ — コア出力エンジン —
Private Sub WriteLog(ByVal level, ByVal message, ByVal colorCode)
Dim formatted
formatted = BuildString(level, message, colorCode)
m_StdOut.WriteLine formatted
End Sub
Private Sub WriteStdErr(ByVal level, ByVal message, ByVal colorCode)
Dim formatted
formatted = BuildString(level, message, colorCode)
m_StdErr.WriteLine formatted
End Sub
Private Function BuildString(ByVal level, ByVal message, ByVal colorCode)
Dim esc
esc = Chr(27)
‘ タイムスタンプの生成（ミリ秒はVBScript標準では重いため秒まで）
Dim timeStamp
timeStamp = Now()
‘ 構造化されたログフォーマット: [TIMESTAMP] [LEVEL] MESSAGE (ANSIカラー適用)
If m_Enabled Then
BuildString = esc & “[” & colorCode & “m[” & timeStamp & “] [” & level & “] ” & message & esc & “[0m”
Else
BuildString = “[” & timeStamp & “] [” & level & “] ” & message
End If
End Function
Public Sub Reset()
Dim esc
esc = Chr(27)
m_StdOut.Write esc & “[0m”
End Sub
End Class
—
4. チーフアーキテクトが語る実装上の重要な知見
① 標準出力 (`StdOut`) と 標準エラー出力 (`StdErr`) の厳格な分離
プロフェッショナルなCLIツールにおいて、正常系のログと異常系のログを同じストリームに混ぜることは悪手である。
上記のコードでは、`Info` や `Success` は `m_StdOut.WriteLine` を用いる一方、`Error` メソッドは `m_StdErr.WriteLine` を経由して標準エラー出力にカラーつきテキストを流し込んでいる。これにより、CI/CDパイプラインやシェルスクリプト（PowerShellやBash）から呼び出された際、エラーハンドリングのパイプライン（`2>&1` の制御など）を完全に維持できる。
② VBScriptにおけるメモリ管理とオブジェクトのライフサイクル
VBScriptはCOMベースの参照カウント方式（Reference Counting）でガベージコレクションを行っている。そのため、グローバルスコープに無駄なオブジェクトを残すとメモリリークの原因となる。
クラス内では `Class_Initialize` と `Class_Terminate` を定義し、スクリプトの終端では明示的に `Set logger = Nothing` を実行してインターフェースの参照を切断する。この規律を守るだけで、何百万行ものログを処理する巨大バッチであっても、メモリ使用量は常に一定に保たれる。
③ 予約語の回避
VBScriptの予約語である `Error` をクラスのメソッド名として使用する場合、コード内では `Public Sub [Error](ByVal message)` のようにブラケット（`[]`）で囲む必要がある。こうした細部へのこだわりが、コンパイルエラーを防ぎ、保守性の高いコードベースを担保する。
—
5. 総括：レガシーの皮を被ったモダンな運用へ
「VBScriptは古いから捨て去るべきだ」という短絡的な意見は、現場の現実を見えていない者の言葉に過ぎない。Windows環境が存在する限り、ゼロ依存で即座に動作するWSH/VBScriptは、インフラストラクチャの最後の砦として機能し続ける。
今回紹介したANSIエスケープシーケンスによるコンソール制御は、既存のバッチファイルを1行も書き換えることなく、その視認性と品質を劇的に引き上げるための強力な武器となる。
枯れた技術の深淵を極め尽くし、モダンな運用に昇華させることこそが、真のエンジニアリングである。
