こんにちは！VBScriptの世界へようこそ。
マクロの記録や、決まりきった定型スクリプトの実行から一歩抜け出して、「もっとエレガントに、もっと拡張性の高いコードを書きたい」と思ったことはありませんか？
今回は、VBScriptの隠れた（そして最強の）武器である `GetRef` 関数を使った、ダイナミックコードインジェクション（動的な関数バインド）とイベント駆動型の非同期データ処理について解説します。
ここをクリアすれば、あなたのVBScriptは単なる「手順書の自動化ツール」から「洗練されたプラガブルなコンポーネント」へと生まれ変わります。さあ、一緒にVBScriptの奥深い世界へ踏み込みましょう！
—
1. なぜ「GetRef」なのか？ 〜静的な呼び出しの呪縛を解く〜
通常のVBScriptでは、ある関数を実行するとき、このようにコードに直接名前を書き込みますよね。
‘ 静的な呼び出し（ハードコーディング）
Call ProcessData(“A”)
しかし、現場でシステムが複雑化してくると、「データの種類（”A”なのか”B”なのか）によって、実行する処理を動的に切り替えたい」「新しい処理を追加するときに、既存のコードを一切書き換えずにプラグイン感覚で組み込みたい（プラガブル設計）」という欲求が出てきます。
ここで登場するのが `GetRef` 関数 です。
`GetRef` は、「関数の名前（文字列）」から「関数そのものへの参照（ポインタのようなもの）」を取り出すという、VBScript離れした高度な機能を持っています。
図解：GetRef のイメージ
[文字列 “OnDataA”] —( GetRef )—> [関数への参照 (Pointer)] —> 変数や配列に格納！
│
任意のタイミングで動的に呼び出し！
これを使うと、「関数を変数として持ち歩き、イベントが発生した時にパッと呼び出す（コールバック）」という、モダンな言語（JavaScriptやC#など）でおなじみのイベント駆動設計がVBScriptでも可能になります。
—
2. 実践！プラグイン可能なイベント駆動システムを構築する
百聞は一見に如かず。今回は「受け取ったデータの種類に応じて、動的に処理を割り当てる（ディスパッチする）汎用コンポーネント」のコードを書いてみましょう。
以下のコードをメモ帳に貼り付け、拡張子を `.vbs` （例: `plugin_sample.vbs`）にして保存し、ダブルクリックして実行してみてください。
Option Explicit
‘ =====================================================================
‘ メイン処理：イベント駆動型のデータ処理フロー
‘ =====================================================================
WScript.Echo “=== プラガブルなイベント処理を開始します ===”
‘ 1. イベントハンドラ（コールバック関数）を管理する連想配列を準備
Dim eventHandlers
Set eventHandlers = CreateObject(“Scripting.Dictionary”)
‘ 2. 関数の参照（GetRef）を連想配列に登録する（ダイナミック・インジェクション）
‘ キー名に対応する関数を動的に紐付けます
eventHandlers.Add “TYPE_A”, GetRef(“HandleTypeA”)
eventHandlers.Add “TYPE_B”, GetRef(“HandleTypeB”)
eventHandlers.Add “TYPE_DEFAULT”, GetRef(“HandleDefault”)
‘ 3. 非同期・動的に流れてくるモックデータ（配列）
Dim streamData
streamData = Array(“TYPE_A”, “TYPE_B”, “TYPE_C”, “TYPE_A”)
‘ 4. イベントループ：データを受け取り、動的に対応する関数を呼び出す
Dim i, currentType, callbackFunc
For i = 0 To UBound(streamData)
currentType = streamData(i)
WScript.Echo vbCrLf & “>> 受信データ: [” & currentType & “]”
‘ 登録されているハンドラが存在するかチェック
If eventHandlers.Exists(currentType) Then
‘ GetRefで取得した参照を変数に代入して実行！
Set callbackFunc = eventHandlers(currentType)
callbackFunc.Invoke “データペイロード_” & i
Else
‘ 登録がない場合はデフォルトのハンドラを動的に呼び出す
Set callbackFunc = eventHandlers(“TYPE_DEFAULT”)
callbackFunc.Invoke “未知のデータ_” & i
End If
Next
WScript.Echo vbCrLf & “=== すべての処理が完了しました ===”
‘ =====================================================================
‘ コールバック関数群（プラグインとして後から自由に追加・変更可能）
‘ =====================================================================
Sub HandleTypeA(payload)
WScript.Echo ” [A専用処理] 高速モードで実行中… 荷物: ” & payload
End Sub
Sub HandleTypeB(payload)
WScript.Echo ” [B専用処理] セキュアモードで検証中… 荷物: ” & payload
End Sub
Sub HandleDefault(payload)
WScript.Echo ” [標準処理] 汎用ロジックで処理します… 荷物: ” & payload
End Sub
—
3. コードのキモ：ここが分かればVBScriptマスター！
上記のコードで、特に重要なポイントをエンジニア視点で解説します。
1. `GetRef(“関数名”)` の威力
`GetRef(“HandleTypeA”)` と記述することで、VBScriptのランタイムはメモリ上の関数アドレスをラップしたオブジェクトを返します。これを `Scripting.Dictionary`（連想配列）に格納できるため、「キー名と処理の完全な疎結合（プラガブル設計）」が実現します。
2. `.Invoke` による動的実行
VBScriptでは、変数のなかに格納された関数の参照を実行する際、`.Invoke 引数`（または単にカッコで囲むなど）という構文を使います。これにより、コードを書いた時点では「どの関数が呼ばれるか分からない」動的なディスパッチ（振り分け）が可能になります。
3. 保守性の劇的な向上
もし新しいデータ型 `TYPE_C` の処理を追加したくなったらどうでしょう？
既存のループ処理のロジックは 1行も書き換える必要がありません。新しく `Sub HandleTypeC(payload)` を書いて、`eventHandlers.Add` で登録するだけです。これが「オープン・クローズド・原則（OCP）」をVBScriptで体現するということです。
—
4. 現場でありがち！陥りやすい罠とエラー回避の知見
プログラミング初学者や、マクロから移行したエンジニアが `GetRef` を使う際、必ずと言っていいほどハマる「落とし穴」が2つあります。ここを知っておくだけで、無駄なデバッグ時間を何時間も節約できます。
罠1：`Sub` なのか `Function` なのか問題
`GetRef` で取得する対象の関数は、戻り値を返す `Function` でも、返さない `Sub` でもどちらでも構いません。しかし、呼び出す側の構文を間違えると、大いなるエラー（「プロシージャの呼び出し、または引数が不正です」など）に悩まされます。
- 知見: 迷ったら、戻り値の有無にかかわらず `Sub` プロシージャで統一し、引数を1つ受け取る形（あるいは `ParamArray` を使う形）にしておくと、コールバックのシグネチャ（型）が統一されてバグが激減します。
罠2：オブジェクト変数の代入には `Set` が必須
VBScriptの鉄則ですが、`GetRef` が返すのは「オブジェクト」です。そのため、連想配列から取り出して変数に保持するとき、あるいは別の変数に代入するときには 必ず `Set` キーワード を使わなければなりません。
‘ ❌ エラーになる書き込み
callbackFunc = eventHandlers(currentType)
‘ ⭕ 正しい書き込み
Set callbackFunc = eventHandlers(currentType)
`Set` を忘れると、「オブジェクトが必要です (Object required)」というVBScriptおなじみのエラーに直面します。ここを見逃さないようにしましょう。
—
おわりに：ここをクリアすれば、基本はバッチリ！
お疲れ様でした！今回はVBScriptの枠を大きく超えた、動的な関数バインディングとイベント駆動設計について解説しました。
「たかがVBScript」と侮るなかれ。言語の仕様の隙間を縫うようにこうした高度なデザインパターンを適用することで、レガシーな環境であっても美しく保守性の高い自動化スクリプトを組み上げることができます。
ここをマスターしたあなたなら、どんなに複雑な業務要件が舞い込んでも、エレガントにコードで解決できるはずです。
ぜひ、日々の自動化タスクにこのテクニックを取り入れてみてくださいね。あなたの開発ライフがより快適になることを応援しています！
