VBScriptを掌握する極限の知見：GetRefによるダイナミックコードインジェクションとイベント駆動型プラガブル設計
レガシーシステムの深淵において、VBScriptはいまだにWindowsインフラの自動化や基幹連携の裏側で静かに鼓動を打っている。
多くの開発者は、VBScriptを「手続き型の古い簡易言語」と侮る。しかし、COM（Component Object Model）のライフサイクル、WSHの実行コンテキスト、そしてメモリの重みを熟知したアーキテクトにとって、VBScriptは極めて軽量かつ強力な動的ランタイムである。
今回は、VBScriptの隠された牙城である `GetRef` 関数に焦点を当てる。
静的なスパゲッティコードの呪縛を断ち切り、関数の参照をファーストクラス・オブジェクトとして扱いつつ、イベント駆動型の非同期データ処理とプラガブルなコンポーネント設計をいかにして実現するか。その極限の知見をここに開示する。
—
1. なぜ `GetRef` なのか？ VBScriptにおける関数ポインタの幻想
CやC++、あるいは現代のJavaScriptであれば、コールバック関数やイベントハンドリングは空気のように自然に行える。しかし、VBScriptには本来「関数ポインタ」という概念が存在しない。関数名は単なるシンボルであり、実行時にそのアドレスを動的に解決する手段は標準では閉ざされているように見える。
ここで登場するのが `GetRef` 関数 である。
`GetRef(“FunctionName”)` は、指定した関数名へのポインタ（参照）をラップした VBScriptの内部関数オブジェクト（Function Reference） を返す。この参照をScripting.Dictionaryなどの連想配列に格納することで、私たちは「文字列の名前による関数の動的ディスパッチ（ダイナミックコードインジェクション）」を手に入れることができる。
従来の「悪い設計」 vs 「プラガブル設計」
- 旧態依然とした設計: `Select Case` 文や膨大な `If-Else` の連鎖。新しい処理を追加するたびに、コアロジックのソースコードを書き換える必要がある（OCP：開放閉鎖原則の完全な違反）。
- `GetRef` によるプラガブル設計: 処理単位を独立した関数としてカプセル化し、実行時に登録（インジェクション）する。コアエンジンは一切変更せず、プラグインのように機能の着脱が可能になる。
—
2. 実装：イベント駆動型・非同期風データ処理エンジン
以下のコードは、ファイル監視やログのストリーム処理を想定し、「データが流れてきたら、登録された複数のハンドラー（コールバック）にイベントとして順次ディスパッチする」プラガブル・エンジンの完全な実装である。
実現場でのコピー＆ペーストを想定し、COMオブジェクトの適切な解放、エラーハンドリング、そしてメモリリークを防ぐためのライフサイクル管理を完全に網羅している。
‘ ==============================================================================
‘ 檔案名称: EventDispatcherEngine.vbs
‘ 概要: GetRefを活用したイベント駆動型プラガブル・データ処理エンジン
‘ 著者: チーフアーキテクト
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Main
Sub Main()
WScript.Echo “=== VBScript Event-Driven Engine Started ===”
‘ 1. ディスパッチャ（エンジン）の初期化
Dim dispatcher
Set dispatcher = New EventDispatcher
‘ 2. プラグイン（コールバック関数）の動的登録 (GetRefの真骨頂)
‘ コアロジックを変更することなく、処理を動的にインジェクションする
Call dispatcher.RegisterHandler(“DataReceived”, GetRef(“LogWriterHandler”))
Call dispatcher.RegisterHandler(“DataReceived”, GetRef(“SecurityAuditHandler”))
Call dispatcher.RegisterHandler(“DataReceived”, GetRef(“MetricsCollectorHandler”))
‘ 3. 非同期（シミュレート）データ処理の実行
WScript.Echo vbCrLf & “— Processing Event 1 —”
Call dispatcher.RaiseEvent(“DataReceived”, “USER_LOGIN: admin from 192.168.1.50”)
WScript.Echo vbCrLf & “— Processing Event 2 —”
Call dispatcher.RaiseEvent(“DataReceived”, “FILE_DOWNLOAD: confidential.pdf”)
‘ 4. クリーンアップ（メモリの明示的解放）
Set dispatcher = Nothing
WScript.Echo vbCrLf & “=== VBScript Event-Driven Engine Completed ===”
End Sub
‘ ==============================================================================
‘ クラス定義: EventDispatcher
‘ イベントの購読管理とディスパッチを司る中核コンポーネント
‘ ==============================================================================
Class EventDispatcher
Private m_Handlers ‘ Scripting.Dictionary
‘ コンストラクタ
Private Sub Class_Initialize()
‘ 連想配列のインスタンス生成 (COMオブジェクト)
Set m_Handlers = CreateObject(“Scripting.Dictionary”)
m_Handlers.CompareMode = 1 ‘ テキスト比較を大文字小文字無視に設定
End Sub
‘ デストラクタ（メモリ最適化の要：循環参照やメモリリークの防止）
Private Sub Class_Terminate()
Call ClearHandlers()
Set m_Handlers = Nothing
End Sub
‘ ハンドラーの動的登録
‘ @param {String} eventName – イベント名
‘ @param {Object} funcRef – GetRefによって取得された関数参照
Public Sub RegisterHandler(ByVal eventName, ByVal funcRef)
If Not m_Handlers.Exists(eventName) Then
‘ 同一イベントに対する複数のハンドラーを保持するため、配列の代わりにコレクションやDictionaryの多段構造も可能だが、
‘ ここでは簡潔さのため、配列(Array)を動的に拡張して保持する
Dim arr(0)
Set arr(0) = funcRef
m_Handlers.Add eventName, arr
Else
Dim existingArr
existingArr = m_Handlers(eventName)
Dim uBoundVal
uBoundVal = UBound(existingArr) + 1
ReDim Preserve existingArr(uBoundVal)
Set existingArr(uBoundVal) = funcRef
‘ Dictionaryの値を再割り当て
m_Handlers.Item(eventName) = existingArr
End If
End Sub
‘ イベントの発火（ディスパッチ）
‘ @param {String} eventName – 発生したイベント名
‘ @param {Variant} eventData – イベントペイロード（データ）
Public Sub RaiseEvent(ByVal eventName, ByVal eventData)
If Not m_Handlers.Exists(eventName) Then Exit Sub
Dim handlers, i, targetFunc
handlers = m_Handlers(eventName)
‘ 登録されたすべてのコールバックを順次呼び出し (Observerパターン)
For i = LBound(handlers) To UBound(handlers)
Set targetFunc = handlers(i)
‘ VBScriptにおける動的関数呼び出し
‘ ※ 関数オブジェクトは Execute 経由か、直接括弧で評価することで呼び出し可能
On Error Resume Next
Call targetFunc(eventData)
If Err.Number <> 0 Then
WScript.Echo “[ERROR] Callback execution failed: ” & Err.Description
Err.Clear
End If
On Error GoTo 0
Set targetFunc = Nothing
Next
End Sub
‘ 全ハンドラーのクリア
Private Sub ClearHandlers()
If m_Handlers Is Nothing Then Exit Sub
Dim key
For Each key in m_Handlers.Keys
m_Handlers.Remove(key)
Next
End Sub
End Class
‘ ==============================================================================
‘ プラグイン実装群（コールバック関数）
‘ これらは独立しており、後からいくらでも追加・削除が可能
‘ ==============================================================================
‘ 1. ログ出力ハンドラー
Sub LogWriterHandler(ByVal data)
WScript.Echo ” [LogWriter] ログ記録: ” & data & ” (Timestamp: ” & Now & “)”
End Sub
‘ 2. セキュリティ監査ハンドラー
Sub SecurityAuditHandler(ByVal data)
‘ 簡易的なセキュリティチェックのシミュレーション
If InStr(data, “admin”) > 0 Then
WScript.Echo ” [SecurityAudit] ★警戒★ 特権ユーザーの操作を検知: ” & data
Else
WScript.Echo ” [SecurityAudit] 通常操作を確認。”
End If
End Sub
InfoCollectorHandler(ByVal data) ‘ エイリアス用やテスト用
‘ 3. メトリクス収集ハンドラー
Sub MetricsCollectorHandler(ByVal data)
WScript.Echo ” [Metrics] パフォーマンスカウンターをインクリメント: PayloadLength=” & Len(data)
End Sub
—
3. シニアエンジニアが知るべき「メモリ最適化」と「VBScriptの闇」
上記のコードは一見して美しく機能するが、VBScriptのランタイム特性を理解していないと、大規模なバッチ処理や常駐型スクリプトにおいて深刻なメモリリークを引き起こす。極限の知見として、以下の3点を心に刻むべきである。
1. `GetRef` とオブジェクトのライフサイクル
`GetRef` によって生成されるオブジェクトは、COMの参照カウンタの仕組みに依存している。親クラス（`EventDispatcher`）の `m_Handlers` 内に `GetRef` の参照を保持し続け、かつクラスインスタンス自身がスコープを抜けた場合、正しくデストラクタ（`Class_Terminate`）で参照を切断しないと、VBScriptのガベージコレクタがメモリを回収しきれないケースがある。
特に 循環参照（Circular Reference） はVBScriptの天敵である。コールバック側からディスパッチ元のインスタンスを直接参照させない（ステートレスな関数にする）ことが、設計上の鉄則となる。
2. 配列の動的拡張 (`ReDim Preserve`) のコスト
上記の `RegisterHandler` メソッドでは、イベントハンドラーの追加に `ReDim Preserve` を用いている。
VBScriptの配列はサイズ変更のたびにメモリ上の別領域へのコピーが発生する。ハンドラーが高頻度で動的追加されるような極端な高負荷環境では、`Scripting.Dictionary` のキーにインデックスを持たせるなどの工夫が必要となる。もっとも、初期化時にのみ登録が行われる一般的な業務スクリプトであれば、このままで何ら問題ないパフォーマンスを発揮する。
3. エラーハンドリングの境界防衛
動的に呼び出されるコールバック関数内で予期せぬエラー（ゼロ除算やオブジェクト不存在など）が発生した場合、メインのディスパッチエンジン全体がクラッシュしてはならない。
コード例の通り、コールバックの実行部分を必ず `On Error Resume Next` で囲み、エラーをキャッチしてログに封じ込め、次のハンドラーの実行を保証する 「境界防衛（Defensive Boundary）」 のパターンが、レガシーシステム運用における必須の知見である。
—
総括
VBScriptは過去の遺物ではない。Windows環境において追加のランタイムインストールを一切必要とせず、OSの核（WSH）とダイレクトに結合できる究極のポータブル言語である。
`GetRef` を駆使した今回のダイナミックコードインジェクション＆イベント駆動型設計を取り入れることで、硬直したレガシーVBScriptは、モダンな拡張性を持つ堅牢な自動化基盤へと生まれ変わる。
技術の限界を決めるのは言語ではなく、それを操るアーキテクトの知見に他ならない。現場のシステムを次の次元へ押し上げるために、ぜひこのパターンを役立ててほしい。
