プロローグ：なぜ今、CScriptによる極限のCLI制御なのか
現代のエンタープライズシステムにおいて、PowerShellやPython、Goといったモダンな言語が主流であることは論をまたない。しかし、金融系システムのクローズドなレガシーWindows Server環境や、Active Directoryのグループポリシー（GPP）によって外部バイナリやPowerShellの実行ポリシー（Execution Policy）が厳格に制限された現場において、WSH（Windows Script Host）およびVBScriptは、今なお「唯一確実に動作が保証された特権的な自動化エンジン」として君臨している。
だが、多くのエンジニアが書くVBScriptは、2000年代初頭の牧歌的なコードのままで止まっている。
ダブルクリックされると意図しないWScript.exe（GUIホスト）で起動して無限ダイアログ地獄に陥るスクリプト、エラーハンドリングを怠り途中で異常終了してゾンビプロセス化するタスク、コンソール画面が制御できずにユーザー入力のバリデーションすら行えない脆弱なツール群。
本極限解説では、これらの課題を根本から解決する。CScript.exe環境を完全に掌握し、Windows APIのコンソール制御思想をVBScriptに移植した、堅牢かつ極めて実用的な「対話型CLI（Command Line Interface）」の構築手法を伝授する。
—
1. アーキテクチャの核心：CScript実行環境の完全掌握
WSHには2つの実行ホストが存在する。GUIベースの `WScript.exe` と、CUIベースの `CScript.exe` である。対話型CLIを構築する大前提として、スクリプトがCScript下で実行されていることを保証しなければならない。
1.1 ホストプロセスの強制自動スイッチ
ユーザーがスクリプトをダブルクリックして起動した場合、デフォルトのホスト（多くはWScript.exe）が選択される。これを検知し、自動的にCScript.exeへとプロセスを切り替えて再実行（リローンチ）するインテリジェントなハンドシェイクコードが不可欠である。
‘ CScript強制実行ロジック
Sub EnforceCScript()
Dim hostName, shell, arg, cmdLine, i
hostName = LCase(Mid(WScript.FullName, InstrRev(WScript.FullName, “\”) + 1))
If hostName <> “cscript.exe” Then
Set shell = CreateObject(“WScript.Shell”)
‘ 実行引数を完全に引き継ぐ
cmdLine = “cscript.exe //NoLogo “”” & WScript.ScriptFullName & “”””
For i = 0 To WScript.Arguments.Count – 1
cmdLine = cmdLine & ” “”” & WScript.Arguments(i) & “”””
Next
‘ 新しいコンソールを開いて実行し、自身のGUIプロセスは即座に終了する
shell.Run cmdLine, 1, False
Set shell = Nothing
WScript.Quit 0
End If
End Sub
このコードのポイントは、`WScript.Arguments` の完全な再構築と `//NoLogo` スイッチの付与である。これにより、Microsoftの著作権表示ヘッダーを抑制し、洗練されたCLIの初期画面を汚さずに描画を開始できる。
—
1.2 標準入出力（StdIn/StdOut）のライフサイクルと同期ブロック
CScript環境において、`WScript.StdIn` および `WScript.StdOut` は、Windowsの標準I/Oハンドルに直結されたストリームオブジェクトである。
- 自動終了の防止原理: CScriptはスクリプトの末尾に達すると、コンソールウィンドウごとプロセスを破棄する。これを防ぎ、ユーザーの確認を待つために `WScript.StdIn.ReadLine` を利用してスレッドを同期的にブロック（待機状態に）する。
- バッファリングの制御: `WScript.StdOut.Write` は改行を伴わない出力を行う。プロンプト（`[Y/N]: ` など）を提示する際、バッファがフラッシュされるタイミングを制御するために、入出力ストリームの特性を理解しておく必要がある。
—
1.3 画面クリア（Console Clear）の極限最適化
VBScriptには、C言語の `system(“cls”)` や他言語の `Console.Clear()` に相当する組み込み関数が存在しない。レガシーな解説書では `WshShell.Run “cmd /c cls”, 0, True` を呼び出す手法が紹介されるが、これは極めて筋が悪い。画面をクリアするたびに cmd.exe の子プロセスをフォークするため、CPUリソースを浪費し、コンソールが一瞬激しくチラつく（フリッカー現象）。
本アーキテクチャでは、Windows 10 以降の標準コンソール（ConHost / Windows Terminal）がサポートする VT100 エスケープシーケンス（Virtual Terminal Sequences） を採用する。プロセスフォークを一切行わず、ストリームへの書き込みだけで画面クリアとカーソルホーム移動を瞬時に完了させる。
‘ 高速・低負荷な画面クリア（VT100 エスケープシーケンス）
Sub ClearScreen()
‘ ESC [ 2 J : 画面全体を消去
‘ ESC [ H : カーソルをホームポジション（左上）に移動
WScript.StdOut.Write Chr(27) & “[2J” & Chr(27) & “[H”
End Sub
※Windows 7等の極めて古いレガシー環境へのフォールバックが必要な場合は、100行の改行（`WScript.StdOut.Write String(100, vbCrLf)`）を流し込む手法を代替として採用する。
—
2. メモリ最適化とオブジェクトの厳密なクリーンアップ
VBScriptは参照カウント方式のガベージコレクション（GC）を採用している。しかし、スクリプトがグローバルスコープで実行され、オブジェクトの参照が残ったままになると、COMコンポーネント（特に `ADODB.Connection` や `WshShell` などの重いシステムリソース）のデストラクターが呼ばれず、メモリリークやハンドルリークを引き起こす。
COMオブジェクト解放の黄金律
1. スコープの最小化: オブジェクト生成は極力Sub/Functionの内部で行い、プロシージャを抜けることでローカル変数の参照カウントを自然に0にする。
2. 明示的解放: プロシージャの終了直前、または例外処理（`On Error Resume Next` 領域）において、必ず `Set obj = Nothing` を実行する。
3. エラーハンドリングの局所化: `On Error Resume Next` はスクリプト全体にかけるのではなく、I/O操作やAPI的なCOM操作を行う極小のブロックに限定し、即座に `On Error GoTo 0` で解除する。
—
3. 実装：プロ仕様の「対話型CLIテンプレート」
以下に、実用に耐えうる堅牢な対話型CLIツールの完全ソースコードを示す。このコードは、自動CScript昇格、画面クリア、入力の厳密なバリデーション、エラーハンドリング、そしてオブジェクトの明示的クリーンアップのすべてを網羅している。
‘ ==============================================================================
‘ HIGH-PERFORMANCE INTERACTIVE CLI TEMPLATE FOR CSCRIPT
‘ Designed by Senior System Architect
‘ Platform: Windows Server 2012R2 – Windows 11 / Windows Terminal
‘ ==============================================================================
Option Explicit
‘ CScript実行環境の強制（再起動処理）
Call EnforceCScript()
‘ メイン処理の実行
Call Main()
‘ ==============================================================================
‘ MAIN PROCEDURE
‘ ==============================================================================
Sub Main()
Dim inputMenu, isRunning, systemStatus
isRunning = True
systemStatus = “NORMAL”
Do While isRunning
Call ClearScreen()
Call ShowHeader(systemStatus)
Call ShowMenu()
inputMenu = PromptUser(“選択してください (1-3, Q:終了): “)
Select Case UCase(inputMenu)
Case “1”
systemStatus = ExecuteSystemCheck()
Case “2”
Call ConfigureSettings()
Case “3”
Call DisplayEnvironmentInfo()
Case “Q”
WScript.StdOut.WriteLine vbCrLf & “[INFO] ツールを終了します。お疲れ様でした。”
isRunning = False
Case “”
‘ Enterのみが押された場合、何もしない（画面再描画）
Case Else
Call ShowErrorAndPause(“無効な入力です。1〜3、またはQを入力してください。”)
End Select
Loop
‘ 自動終了防止：Enterキーを押すまでウィンドウを閉じない
Call PauseForExit()
End Sub
‘ ==============================================================================
‘ CLI COMPONENT FUNCTIONS
‘ ==============================================================================
‘ CScript強制実行ロジック
Sub EnforceCScript()
Dim hostName, shell, cmdLine, i
hostName = LCase(Mid(WScript.FullName, InstrRev(WScript.FullName, “\”) + 1))
If hostName <> “cscript.exe” Then
Set shell = CreateObject(“WScript.Shell”)
cmdLine = “cscript.exe //NoLogo “”” & WScript.ScriptFullName & “”””
For i = 0 To WScript.Arguments.Count – 1
cmdLine = cmdLine & ” “”” & WScript.Arguments(i) & “”””
Next
shell.Run cmdLine, 1, False
Set shell = Nothing
WScript.Quit 0
End If
End Sub
‘ 高速画面クリア (VT100 エスケープシーケンス対応 / レガシーフォールバック)
Sub ClearScreen()
On Error Resume Next
‘ VT100 エスケープシーケンスによるクリーンクリア
WScript.StdOut.Write Chr(27) & “[2J” & Chr(27) & “[H”
‘ エラーが発生した場合（レガシーコンソールなど）は改行でフォールバック
If Err.Number <> 0 Then
WScript.StdOut.Write String(50, vbCrLf)
Err.Clear
End If
On Error GoTo 0
End Sub
‘ ヘッダー描画
Sub ShowHeader(status)
WScript.StdOut.WriteLine “======================================================================”
WScript.StdOut.WriteLine ” ENTERPRISE SYSTEM MANAGEMENT CONSOLE [Status: ” & status & “]”
WScript.StdOut.WriteLine “======================================================================”
WScript.StdOut.WriteLine ” Current Time: ” & Now()
WScript.StdOut.WriteLine “———————————————————————-”
End Sub
‘ メニュー表示
Sub ShowMenu()
WScript.StdOut.WriteLine ” [1] システムヘルスチェックの実行”
WScript.StdOut.WriteLine ” [2] 管理用一時ディレクトリのクリーンアップ”
WScript.StdOut.WriteLine ” [3] ホスト環境情報の表示”
WScript.StdOut.WriteLine ” [Q] コンソールを閉じて終了する”
WScript.StdOut.WriteLine “———————————————————————-”
End Sub
‘ ユーザー入力プロンプト (バリデーション前段)
Function PromptUser(promptText)
WScript.StdOut.Write promptText
‘ StdIn.ReadLine で同期的に入力を待つ（自動終了の防止）
PromptUser = Trim(WScript.StdIn.ReadLine)
End Function
‘ エラー表示と一時停止
Sub ShowErrorAndPause(errorMessage)
WScript.StdOut.WriteLine vbCrLf & ” [!] ERROR: ” & errorMessage
WScript.StdOut.Write ” Enterキーを押すとメニューに戻ります…”
WScript.StdIn.ReadLine
End Sub
‘ 自動終了防止用の最終待機
Sub PauseForExit()
WScript.StdOut.WriteLine “———————————————————————-”
WScript.StdOut.Write ” プロセスが終了しました。Enterキーを押してウィンドウを閉じてください…”
WScript.StdIn.ReadLine
End Sub
‘ ==============================================================================
‘ BUSINESS LOGIC & SYSTEM MANAGEMENT FUNCTIONS
‘ ==============================================================================
‘ 1. システムヘルスチェック (WMIによるディスクスペース取得)
Function ExecuteSystemCheck()
WScript.StdOut.WriteLine vbCrLf & “[1] システムヘルスチェックを実行中…”
Dim locator, wmi, colDisks, objDisk
On Error Resume Next
Set locator = CreateObject(“WbemScripting.SWbemLocator”)
‘ ローカルのWMI名前空間にセキュリティ権限を明示して接続
Set wmi = locator.ConnectServer(“.”, “root\cimv2”)
wmi.Security_.ImpersonationLevel = 3 ‘ Impersonate
If Err.Number <> 0 Then
WScript.StdOut.WriteLine ” [FAIL] WMI接続に失敗しました。権限を確認してください。”
ExecuteSystemCheck = “ERROR”
Err.Clear
Exit Function
End If
Set colDisks = wmi.ExecQuery(“Select from Win32_LogicalDisk Where DriveType = 3″)
For Each objDisk In colDisks
Dim freeGB, sizeGB
freeGB = Round(objDisk.FreeSpace / 1024 / 1024 / 1024, 2)
sizeGB = Round(objDisk.Size / 1024 / 1024 / 1024, 2)
WScript.StdOut.WriteLine ” Drive ” & objDisk.DeviceID & ” -> 空き容量: ” & freeGB & ” GB / 総容量: ” & sizeGB & ” GB”
Next
‘ COMオブジェクトの厳密な解放
Set objDisk = Nothing
Set colDisks = Nothing
Set wmi = Nothing
Set locator = Nothing
If Err.Number <> 0 Then
WScript.StdOut.WriteLine ” [FAIL] ディスク情報の取得中にエラーが発生しました。”
ExecuteSystemCheck = “WARNING”
Err.Clear
Else
WScript.StdOut.WriteLine ” [SUCCESS] ヘルスチェックが完了しました。”
ExecuteSystemCheck = “NORMAL”
End If
On Error GoTo 0
WScript.StdOut.Write vbCrLf & “Enterキーを押してメニューに戻ります…”
WScript.StdIn.ReadLine
End Function
‘ 2. ディレクトリクリーンアップ (FileSystemObjectの制御)
Sub ConfigureSettings()
WScript.StdOut.WriteLine vbCrLf & “[2] クリーンアップ処理を開始します…”
Dim fso, shell, tempPath, tempFolder, file, fileCount
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set shell = CreateObject(“WScript.Shell”)
‘ 環境変数からTEMPディレクトリを安全に取得
tempPath = shell.ExpandEnvironmentStrings(“%TEMP%”)
fileCount = 0
WScript.StdOut.WriteLine ” 対象ディレクトリ: ” & tempPath
On Error Resume Next
If fso.FolderExists(tempPath) Then
Set tempFolder = fso.GetFolder(tempPath)
For Each file In tempFolder.Files
‘ 最終更新日が7日以上前のファイルを削除対象とする例
If file.DateLastModified < (Now() - 7) Then
file.Delete True
If Err.Number = 0 Then
fileCount = fileCount + 1
Else
Err.Clear ' ロックされているファイルはスキップ
End If
End If
Next
End If
WScript.StdOut.WriteLine " クリーンアップ完了。削除されたファイル数: " & fileCount
' 明示的解放
Set file = Nothing
Set tempFolder = Nothing
Set shell = Nothing
Set fso = Nothing
On Error GoTo 0
WScript.StdOut.Write vbCrLf & "Enterキーを押してメニューに戻ります..."
WScript.StdIn.ReadLine
End Sub
' 3. 環境情報の表示 (WshNetwork / WshShell の融合)
Sub DisplayEnvironmentInfo()
WScript.StdOut.WriteLine vbCrLf & "[3] ホスト環境情報を表示します..."
Dim network, shell, osVersion, computerName, userName
Set network = CreateObject("WScript.Network")
Set shell = CreateObject("WScript.Shell")
computerName = network.ComputerName
userName = network.UserName
' レジストリからOS製品名を取得
On Error Resume Next
osVersion = shell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
If Err.Number <> 0 Then
osVersion = “Unknown Windows Version”
Err.Clear
End If
On Error GoTo 0
WScript.StdOut.WriteLine ” OSホスト: ” & osVersion
WScript.StdOut.WriteLine ” マシン名: ” & computerName
WScript.StdOut.WriteLine ” 実行ユーザー: ” & userName
‘ 明示的解放
Set shell = Nothing
Set network = Nothing
WScript.StdOut.Write vbCrLf & “Enterキーを押してメニューに戻ります…”
WScript.StdIn.ReadLine
End Sub
—
4. 技術解説：堅牢性を担保する設計の深層
4.1 CScriptとWScriptの「二重起動」を防ぐ仕組み
上記の `EnforceCScript` サブプロシージャにおいて、プロセスを再起動した後に `WScript.Quit 0` を実行している点に注目してほしい。
VBScriptはインタープリタ言語であるため、再起動プロセス（`shell.Run`）を呼び出しただけでは、自身のプロセスはそのまま下の行へと実行を続けてしまう。これを即座に、かつ正常ステータスで終了させることが、ゾンビプロセスの発生を防ぐ絶対条件である。
4.2 WMI（Windows Management Instrumentation）のセキュリティレベル
`ExecuteSystemCheck` 関数内において、WMI接続時に `wmi.Security_.ImpersonationLevel = 3` を指定している。これは `Impersonate`（権限借用）レベルを明示的に宣言するものである。
ADドメイン環境において、スクリプトを実行する管理者権限トークンを正しくWMIプロバイダーへ委任するために、この宣言は必須である。これを怠ると、一部のWindows Server環境で「アクセス拒否（0x80041003）」エラーがランダムに発生する原因となる。
4.3 `On Error Resume Next` の乱用がもたらす悲劇の回避
多くのレガシーVBScriptにおいて、デバッグを放棄するためにファイル先頭に `On Error Resume Next` が記述されている。これは「大罪」である。
本コードでは、エラーを許容せざるを得ない「WMI接続」、「ファイル削除」、「レジストリ読み込み」の極小セクションにおいてのみ `On Error Resume Next` を適用し、処理が終わった直後に `On Error GoTo 0`（エラーハンドリングの初期化）を行っている。これにより、想定外のランタイムエラーが発生した際にはスクリプトが適切にスタックトレースを吐いて停止するため、バグの早期発見が可能となる。
—
エピローグ：アーキテクトがレガシーを支配するということ
レガシーな技術を扱うことと、レガシーな品質でコードを書くことは同義ではない。
VBScriptという20年以上前のテクノロジーであっても、Windows OSの内部挙動、COMの参照カウントモデル、そして入出力ストリームの同期処理を正しく理解し、限界までチューニングを施せば、モダンな言語に比肩する堅牢なシステム管理ツールを構築できる。
このコードテンプレートは、あらゆるWindows環境で事前インストール不要で動作し、極めてフットプリントが小さく、そして何よりも「絶対に意図せず自動終了しない、管理者が安心して使えるツール」として機能する。
現場に縛られた制約を呪うのではなく、その制約の中で最高のアーキテクチャを具現化することこそが、真のチーフアーキテクトの矜持である。
