【ダイナミックコードインジェクション】GetRef を活用したイベント駆動型の非同期データ処理とプラガブル設計
開発プロジェクトで、VBScriptによる業務自動化ツールを作り込んだ経験はないだろうか？
「CSVの巨大なファイルを読み込み、行ごとにバリデーションを行い、DBへバルクインサートする。だが、処理の途中でエラーハンドリングやログ出力、条件分岐のルールが追加されるたびに、`Select Case`や`If`の迷宮が生まれ、コードが肥大化していく……」
もし、あなたがこのようなスパゲッティコードの保守に疲弊しているなら、それはVBScriptが持つ真の力――`GetRef`関数によるイベント駆動とプラグインアーキテクチャを知らないからだ。
今回は、VBScriptの静的な限界を突破し、動的なコードインジェクションによって疎結合で拡張性の高いコンポーネントを構築する極限の知見を授けよう。
—
1. なぜ「直書きの条件分岐」は悪なのか？（アンチパターンからの脱却）
業務自動化スクリプトにおいて、次のようなコードを書いたことはないか？
‘ 【悪夢のスパゲッティコード例】
Sub ProcessData(dataType, dataValue)
If dataType = “CSV” Then
‘ CSV用の処理
MsgBox “Processing CSV: ” & dataValue
ElseIf dataType = “DB” Then
‘ DB用の処理
MsgBox “Processing DB: ” & dataValue
ElseIf dataType = “API” Then
‘ API用の処理（後から追加）
MsgBox “Processing API: ” & dataValue
End If
‘ 新しいデータ型が増えるたびに、ここにロジックが追加され、既存コードが破壊されるリスクが生じる
End Sub
このアプローチは、OCP（オープン・クローズド・原則：拡張に対して開いており、修正に対して閉じているべきである）に完全に違反している。新しいデータ型や処理を追加するたびに既存の関数を修正しなければならず、デグレードの温床となる。
解決策：イベント駆動型プラガブル設計
「処理の本体」と「実行するトリガー」を完全に分離し、実行時に動的に関数をバインドする。ここで鍵となるのが、VBScriptの隠れた名機能 `GetRef` である。
—
2. GetRef の本質：関数ポインタの動的注入
`GetRef` 関数は、指定した名前のサブルーチンまたは関数の参照（ポインタのようなもの）を返す。これを連想配列（Dictionary）のバリューとして保持させることで、文字列のキーから対応する関数を動的に呼び出すことが可能になる。
これにより、「文字列（設定値やデータ種別）をトリガーにして、任意のコードブロックをダイナミックにインジェクションして実行する」という、オブジェクト指向的なイベント駆動アーキテクチャをVBScript上で実現できるのだ。
—
3. 実践！プロダクションコード例
以下のコードは、ファイルやデータベースから取得した異種混合のレコードを、プラグイン方式で動的に処理する堅牢なコンポーネントの完全版である。そのままコピー＆ペーストして、拡張子 `.vbs` として実行可能だ。
Option Explicit
‘ ==============================================================================
‘ プレフィックス: 業務自動化プロフェッショナル向け プラガブル・データプロセッサ
‘ 概要: GetRef を利用したイベント駆動型の非同期・動的ディスパッチ設計
‘ ==============================================================================
Class DataProcessor
Private m_Handlers
Private m_LogQueue
‘ コンストラクタ: ディスパッチ用辞書とログキューの初期化
Private Sub Class_Initialize()
Set m_Handlers = CreateObject(“Scripting.Dictionary”)
Set m_LogQueue = CreateObject(“System.Collections.ArrayList”)
End Sub
‘ デストラクタ: リソースの解放
Private Sub Class_Terminate()
Set m_Handlers = Nothing
Set m_LogQueue = Nothing
End Sub
‘ 【プラグイン登録】イベント名に対応する関数の参照（GetRef）をバインド
Public Sub RegisterHandler(ByVal eventType, ByRef funcRef)
If m_Handlers.Exists(eventType) Then
m_Handlers(eventType) = funcRef
Else
m_Handlers.Add eventType, funcRef
End If
End Sub
‘ 【イベントディスパッチ】動的にコードをインジェクション実行
Public Function Dispatch(ByVal eventType, ByVal payload)
If Not m_Handlers.Exists(eventType) Then
Err.Raise 9999, “DataProcessor”, “未登録のイベントタイプです: ” & eventType
End If
‘ GetRefで取得した関数参照を変数経由で実行（動的呼び出し）
Dim callback
Set callback = m_Handlers(eventType)
‘ 実行結果を返す
Dispatch = callback(payload)
End Function
‘ ログ蓄積メソッド
Public Sub Log(ByVal message)
m_LogQueue.Add “[” & Now() & “] ” & message
End Sub
‘ ログの出力
Public Sub DumpLogs()
Dim item
For Each item In m_LogQueue
WScript.Echo item
Next
End Sub
End Class
‘ ==============================================================================
‘ コールバック関数群（これらが「プラグイン」として機能する）
‘ ==============================================================================
Function HandleCSV(ByVal data)
‘ CSVデータ特有のパース処理やバリデーションをカプセル化
HandleCSV = “【CSV処理完了】 データの正規化行数: ” & Len(data)
End Function
Function HandleDatabase(ByVal data)
‘ DBレコード処理のエミュレーション
HandleDatabase = “【DB処理完了】 SQLトランザクション適用ID: ” & data
End Function
Function HandleAPI(ByVal data)
‘ 外部API連携処理のエミュレーション
HandleAPI = “【API処理完了】 ペイロード送信成功: ” & data
End Function
‘ ==============================================================================
‘ メイン処理エントリポイント（実務での利用シーン）
‘ ==============================================================================
Sub Main()
Dim processor
Set processor = New DataProcessor
‘ 1. プラグイン（関数参照）の動的インジェクション
‘ GetRefを使うことで、文字列キーと実際の関数オブジェクトを完全に紐付ける
processor.RegisterHandler “CSV”, GetRef(“HandleCSV”)
processor.RegisterHandler “DB”, GetRef(“HandleDatabase”)
processor.RegisterHandler “API”, GetRef(“HandleAPI”)
‘ 2. 模擬データの入力（ファイルやDBからストリームで取得したと想定）
Dim processingTasks
Set processingTasks = CreateObject(“Scripting.Dictionary”)
processingTasks.Add 0, Array(“CSV”, “ID,Name,Status\n1,Yamada,Active\n2,Tanaka,Pending”)
processingTasks.Add 1, Array(“DB”, “SELECT FROM Users WHERE Updated > ‘2023-01-01′”)
processingTasks.Add 2, Array(“API”, “{‘endpoint’: ‘/v1/sync’, ‘status’: ‘ready’}”)
‘ 3. イベント駆動型ループによる非同期風バッチ処理
Dim i, task, res
On Error Resume Next
For i = 0 To processingTasks.Count – 1
task = processingTasks(i)
‘ ログ記録
processor.Log “処理開始: タイプ=” & task(0)
‘ 動的ディスパッチ実行
res = processor.Dispatch(task(0), task(1))
If Err.Number <> 0 Then
processor.Log “エラー発生 [” & Err.Number & “]: ” & Err.Description
Err.Clear
Else
processor.Log res
End If
Next
On Error Goto 0
‘ 4. 結果の出力
processor.DumpLogs
Set processor = Nothing
End Sub
‘ 実行
Main()
—
4. プロフェッショナルの知見：ファイル・DB連携における「落とし穴」
このアーキテクチャを実際の業務システム（ファイルサーバー監視やRDB連携）に組み込む際、VBScript特有の罠に注意する必要がある。
① オブジェクトのスコープとメモリリークの防止
`GetRef` を使用する場合、関数参照を保持する `Scripting.Dictionary` が破棄されるタイミングを意識しなければならない。クラスの `Class_Terminate` 内で明示的にオブジェクトを解放 (`Set m_Handlers = Nothing`) しないと、COMコンポーネントの参照カウントが残存し、メモリリーク（ゾンビプロセス）を引き起こす原因となる。
② 例外ハンドリング（`On Error Resume Next`）の局所化
動的インジェクションを行うコードブロック（`callback(payload)` の部分）では、プラグイン側の実装ミス（ゼロ除算やDB接続エラーなど）によってスクリプト全体がクラッシュするリスクがある。
必ずディスパッチ層でエラーをトラップし、どのプラグインのどのデータ処理で失敗したのかをコンテキスト（文脈）とともにログへ退避させ、全体のバッチ処理を止めない「フォールトトレラント設計」を貫くこと。
—
5. まとめ
VBScriptはレガシーな言語と揶揄されることが多い。しかし、その言語仕様の隙間にあるプリミティブな機能――今回紹介した `GetRef` によるダイナミックコードインジェクション を正しく理解し適用すれば、モダンな言語顔負けの拡張性と保守性を誇る堅牢な自動化コンポーネントを構築できる。
明日からの開発では、「条件分岐の追加」が必要になったとき、安易に `If` や `Select` を継ぎ足すのではなく、「振る舞いを関数としてカプセル化し、`GetRef` でインジェクションする」という選択肢を思い出してほしい。
あなたの書くコードは、誰でも安全に拡張できる「真に価値あるプロフェッショナル・ツール」へと生まれ変わるはずだ。
