境界線の守護者：WinNTプロバイダによるAdministrators権限の「動的監査」とVBScriptの真髄
現代のモダンなクラウドネイティブな環境においても、レガシーなWindowsインフラの深部には、未だにVBScriptが静かに息づいている。多くのエンジニアはこれを「過去の遺物」と切り捨てるが、それは誤りだ。OSのカーネルに近い層で、一切の依存関係（ランタイムのインストールや巨大なフレームワークのロード）を排除し、即座に実行可能なバイナリとして存在し続けるVBScriptは、究極の「トリアージ・ツール」である。
今回は、特権グループ（Administrators）の不正な改変を検知する、実戦的な監査スクリプトを構築する。単なるコードの羅列ではない。メモリ管理とオブジェクトのライフサイクルを制御し、システムに負荷を与えず、かつ即座に結果を叩き出すための「極限の知見」を共有する。
—
1. WinNTプロバイダという「特権」への最短ルート
Windowsのユーザー管理において、WMI（Windows Management Instrumentation）は強力だが、Administratorsグループのメンバー取得に関しては `WinNT` プロバイダを用いるのが最も効率的だ。WMIは強力な反面、クエリのオーバーヘッドが大きく、また権限昇格の問題で躓くことが多い。
`WinNT://./Administrators` というパスは、ローカルセキュリティデータベースへの直通回線である。これをActiveXObjectとしてインスタンス化し、メンバー列挙を行うのが最速の解となる。
2. 極限の監査コード：Administrator Auditing Engine
以下のコードは、単にメンバーをリストアップするのではない。定義された「許可リスト（ホワイトリスト）」と照合し、乖離があれば直ちに警告を出す設計としている。
‘ ==============================================================================
‘ Script: Audit_Admins.vbs
‘ Purpose: Administratorsグループの動的監査と不正検知
‘ Author: Chief Architect
‘ ==============================================================================
Option Explicit
‘ 監査対象グループと許可リストの定義
Const TARGET_GROUP = “Administrators”
Dim AllowedUsers: Set AllowedUsers = CreateObject(“Scripting.Dictionary”)
‘ 許可リストの登録 (ここに許可するアカウントを登録)
AllowedUsers.Add “Administrator”, True
AllowedUsers.Add “Domain Admins”, True
Call Main()
Sub Main()
Dim objGroup, objMember
Dim strComputer: strComputer = “.”
‘ WinNTプロバイダによるグループオブジェクトの取得
‘ ※パフォーマンス向上のため、On Error Resume Nextによるトラップは必要最小限に
Set objGroup = GetObject(“WinNT://” & strComputer & “/” & TARGET_GROUP & “,group”)
WScript.Echo “— Audit Started: ” & Now & ” —”
For Each objMember In objGroup.Members
‘ 名前をキーとしてチェック
If Not AllowedUsers.Exists(objMember.Name) Then
‘ 不正なアカウントを発見した場合、即座に警告
WScript.Echo “[ALERT] Unauthorized Account Detected: ” & objMember.Name
Else
WScript.Echo “[INFO] Authorized: ” & objMember.Name
End If
Next
‘ オブジェクトの明示的解放（VBScriptのメモリ管理の鉄則）
Set objMember = Nothing
Set objGroup = Nothing
Set AllowedUsers = Nothing
WScript.Echo “— Audit Finished —”
End Sub
—
3. チーフアーキテクトが教える「保守の美学」
コードを書くだけなら初心者でもできる。しかし、システムを「保守」し続けるには、以下の3つの観点を忘れてはならない。
① オブジェクトのライフサイクル管理
VBScriptは参照カウンタ方式でメモリを解放する。大規模なバッチ処理で `Set obj = Nothing` を怠ると、メモリリークの温床となる。特にWMIやActiveXObjectを多用するスクリプトでは、ループ内での生成・破棄のタイミングを厳密に制御せよ。
② レガシー環境での実行ポリシー
現代のWindows環境では、PowerShellの台頭により `vbs` ファイルの実行がブロックされることが多い。この監査スクリプトを運用に乗せる際は、以下のようなバッチファイル（wrapper）で呼び出すのが定石だ。
@echo off
:: Execution Policyを気にせず実行可能なWSHの利点を活かす
cscript //Nologo Audit_Admins.vbs > audit_result.log
③ セキュリティコンテキストの意識
このスクリプトは、「管理者権限」で実行しなければ意味をなさない。タスクスケジューラに登録する際は、「最上位特権で実行する」に必ずチェックを入れること。これを行わない限り、WinNTプロバイダは「アクセス拒否」を吐き出す。
—
結論：技術は「枯れる」のではなく「深化する」
VBScriptを駆使して行うこの監査は、単なる監視ではない。システムが定義した「あるべき姿（State）」と「現在の姿（Status）」を、OSの深層で突き合わせるというアーキテクチャの根幹に触れる行為だ。
もし、貴殿が管理する環境でAdministratorsグループが肥大化しているなら、今すぐこのコードを配備せよ。静かに、しかし確実に、不正を検知する「番犬」をシステムに住まわせるのだ。それが、真の業務自動化エンジニアの嗜みである。
