こんにちは！自動化の世界へようこそ。
マクロの自動記録や単純なテキストファイルのログ出力から一歩踏み出し、「システム管理者や運用チームが信頼できるプロフェッショナルな自動化ツールを作りたい」と思ったことはありませんか？
今回のテーマは【カスタムイベントソース登録】です。
VBScriptの強力なコンポーネントである `WScript.Shell` を使い、Windowsのレジストリを操作して独自のアプリケーション名（イベントソース）でWindowsの「イベントビューアー」に綺麗なログを刻むテクニックを解説します。
「レジストリ」「イベントビューアー」と聞くと難しく感じるかもしれませんが、大丈夫です。仕組みさえ理解できれば、VBScriptの制御は驚くほどシンプルになります。ここをクリアすれば、VBScriptの基本はバッチリですよ！
—
なぜデフォルトのログ出力ではダメなのか？
通常、VBScriptでイベントログを出力する際は `WScript.Shell` の `LogEvent` メソッドを使いますが、何も準備せずに実行すると、イベントビューアーでの「ソース」名はすべて「WSH（Windows Script Host）」になってしまいます。
これでは、複数の自動化スクリプトが動いているシステムの場合、「どのスクリプトが吐いたログなのか」がひと目で判別できません。さらに、イベントビューアーを開いた時に「イベント ID の説明が見つかりません」といった警告文が付与されてしまうこともあります。
全体像のイメージ図
【一般的なログ出力（イマイチ…）】
VBScript ──► [WScript.Shell] ──► イベントビューアー (ソース名: WSH)
※他のスクリプトのログと混ざり、検索・監視が極めて困難！
【カスタムイベントソース（プロの技！）】
VBScript ──► [レジストリ登録] ──► [WScript.Shell] ──► イベントビューアー (ソース名: MyEnterpriseApp)
※独自名で美しく分類＆監視ツールとも即連携！
事前にレジストリへ「この名前（イベントソース）を登録するよ！」とWindowsに教えてあげることで、イベントビューアー上に自分だけのアプリケーション名を刻み、エラー検知やシステム監視を格段にスムーズにできるようになります。
—
仕組みの解説：レジストリのどこを触るのか？
Windowsのイベントビューアー（Applicationログ）は、以下のレジストリパスを参照してログのソース名を管理しています。
- レジストリパス:
`HKLM\SYSTEM\CurrentControlSet\Services\EventLog\Application\<あなたの作成したいソース名>\`
ここに、以下の2つの値を書き込みます。
1. `EventMessageFile` (REG_EXPAND_SZ): ログメッセージを整形するためのDLLファイルのパス。Windows標準の `EventLogMessages.dll` を指定します。
2. `TypesSupported` (REG_DWORD): アプリケーションがサポートするイベントの種類（情報・警告・エラーなど）。数値 `7` （全イベント指定）をセットします。
—
【実戦コード】カスタムイベントソースの登録とログ出力
それでは、実際のコードを見てみましょう！開発現場でそのまま使えるよう、エラー処理とオブジェクトのライフサイクル管理を含めた完成版のVBScriptです。
‘ =====================================================================
‘ 【VBScript】カスタムイベントソース登録 ＆ 独自ログ出力スクリプト
‘
‘ 説明: Windowsレジストリに独自イベントソースを登録し、
‘ イベントビューアーの「Application」ログへ刻みます。
‘ 注意: HKLMへの書き込みのため「管理者として実行」が必要です。
‘ =====================================================================
Option Explicit
‘ — 1. オブジェクト生成と変数宣言 —
Dim objShell
Set objShell = WScript.CreateObject(“WScript.Shell”)
‘ 設定パラメーター
Dim strSourceName, strRegistryPath, strMessageFile
strSourceName = “MyEnterpriseApp” ‘ ★ここに独自のソース名を入力
strRegistryPath = “HKLM\SYSTEM\CurrentControlSet\Services\EventLog\Application\” & strSourceName & “\”
strMessageFile = “%SystemRoot%\System32\EventLogMessages.dll”
‘ エラーを無視して自前でトラップ（補獲）するモードに切り替え
On Error Resume Next
‘ — 2. レジストリへの事前登録（初回または更新時） —
‘ イベントメッセージ用DLLの設定
objShell.RegWrite strRegistryPath & “EventMessageFile”, strMessageFile, “REG_EXPAND_SZ”
‘ サポートするイベントタイプの設定（7 = エラー(1) + 警告(2) + 情報(4) すべてを許可）
objShell.RegWrite strRegistryPath & “TypesSupported”, 7, “REG_DWORD”
‘ レジストリ書き込み時のエラーチェック
If Err.Number <> 0 Then
WScript.Echo “【エラー】レジストリの書き込みに失敗しました。” & vbCrLf & _
“コマンドプロンプトまたは PowerShell を『管理者として実行』してスクリプトを起動してください。” & vbCrLf & _
“エラー詳細: ” & Err.Description
‘ オブジェクトの安全な破棄
Set objShell = Nothing
WScript.Quit 1
End If
‘ エラー監視を元に戻す（必要に応じて）
On Error GoTo 0
‘ — 3. イベントログの出力 —
‘ LogEvent の第1引数（イベントタイプ）:
‘ 0 = SUCCESS (成功)
‘ 1 = ERROR (エラー)
‘ 2 = WARNING (警告)
‘ 4 = INFORMATION (情報)
Dim intEventType, strLogMessage, blnResult
intEventType = 4 ‘ 情報（INFORMATION）として記録
strLogMessage = “【正常終了】夜間自動データ連携処理が完了しました。(処理件数: 1,500件)”
‘ カスタムログを出力
blnResult = objShell.LogEvent(intEventType, strLogMessage)
‘ — 4. 実行結果の確認 —
If blnResult Then
WScript.Echo “イベントログの出力に成功しました！” & vbCrLf & _
“イベントビューアー（Application）でソース名『” & strSourceName & “』を確認してください。”
Else
WScript.Echo “【エラー】イベントログの書き込みに失敗しました。”
End If
‘ — 5. メモリの明示的解放（オブジェクトのライフサイクル完了） —
‘ VBScriptでは使い終わったCOMオブジェクトを確実にNothingにするのが鉄則です
Set objShell = Nothing
—
コードの深掘り解説：知っておくべき極意
① `TypesSupported = 7` の意味とは？
コード内に出てきた `7` という数字。これはビットフラグの足し算です。
- 1 = ERROR（エラー）
- 2 = WARNING（警告）
- 4 = INFORMATION（情報）
これらをすべて受け入れられるように `1 + 2 + 4 = 7` と設定しています。このようにレジストリの背景にある意味を理解しておくと、一気にコードの背景が見えるようになります。
② オブジェクトのライフサイクル管理
スクリプトの最後にある `Set objShell = Nothing`。
「スクリプトが終われば自動で消えるのでは？」と思われがちですが、大星（プロ）のエンジニアは明示的にオブジェクトを解放します。長期間動くサーバー上のバッチ処理などで、メモリリーク（メモリの解放忘れ）を防ぐための非常に重要な習慣です。
—
初学者がハマりやすい「3つの落とし穴」と対処法
落とし穴1：実行すると「書き込み権限がありません」と怒られる
原因: `HKLM` (HKEY_LOCAL_MACHINE) はシステム全体に影響する領域のため、一般ユーザー権限では変更できません。
対処法: コマンドプロンプトを「管理者として実行」で開き、そこから `cscript your_script.vbs` を実行してください。
落とし穴2：イベントビューアーで「説明が見つかりません」と出る
原因: `EventMessageFile` で指定したパスが間違っているか、レジストリが反映される前にログを出力している場合に発生します。
対処法: 今回のコードのように `%SystemRoot%\System32\EventLogMessages.dll` を正確にレジストリへ書き込めば綺麗に解消されます。
落とし穴3：`On Error Resume Next` の使いすぎ
エラーを無視してくれる便利な命令ですが、乱用すると「どこで失敗したのか」が全く分からなくなります。
対処法: 「レジストリ書き込み」のような失敗する可能性（権限不足など）があらかじめ想定されるピンポイントのブロックのみに適用し、すぐに `Err.Number` をチェックしてハンドリングするのがプロの書き方です。
—
まとめ：ワンランク上の自動化エンジニアへ
今回の手法を使えば、あなたが作ったVBScriptは単なる「裏で動く怪しいスクリプト」から、Windows標準の監視ツールと完璧に統合された「信頼性の高いシステムツール」へと昇華します。
1. `WScript.Shell` を生成する
2. レジストリ `HKLM\…\EventLog\Application` にソース名を書き込む
3. `LogEvent` で美しいログを刻む
4. 使い終わったオブジェクトは `Nothing` で美しく解放する
この一連の流れとライフサイクルの概念を理解できれば、VBScriptの基礎とWSH実行環境のハンドリングは自信を持って「バッチリ！」と言えます。
ぜひご自身の開発環境でスクリプトを動かし、イベントビューアーにあなたの定義したアプリ名が刻まれる快感を味わってみてくださいね。応援しています！
