VBScriptを掌握する極限の知見：ADsDSOObjectによる超高速LDAPクエリの真髄
世の中には「AD操作といえばPowerShell」という風潮がある。しかし、レガシーなWindows Server環境の保守、あるいは極めて軽量なバックグラウンドタスクが求められる現場において、VBScriptのポテンシャルを侮る者は、システムの深淵を覗く資格がない。
今回は、ADSI (Active Directory Service Interfaces) の中核である `ADsDSOObject` を用い、ADO経由でActive Directoryを「データベース」として叩く、プロフェッショナルな実装技術を伝授する。
—
1. なぜ「ADsDSOObject」なのか
通常、`GetObject(“LDAP://…”)` で単一のオブジェクトをたどる手法は、再帰的な探索が必要な場合、ネットワークI/Oのオーバーヘッドで地獄を見る。
`ADsDSOObject` を使うということは、ADを「リレーショナルデータベース」として扱い、SQL（LDAP Dialect）を投げることを意味する。これにより、サーバー側でフィルタリングを行い、必要なデータセットのみをクライアントに引き渡す。これが、「高速抽出」の唯一の解である。
—
2. 実装の要諦：パフォーマンスを殺さない書き方
VBScriptで最も忌避すべきは、オブジェクトの放置だ。COMの解放を疎かにする者は、メモリリークという名の時限爆弾を自ら仕掛けているに等しい。
以下のコードは、数万件のユーザーを抽出する際にも耐えうる、最適化されたテンプレートである。
Option Explicit
‘ ADO定数の定義（外部ライブラリを読み込まない環境での必須設定）
Const ADS_SCOPE_SUBTREE = 2
Dim objConnection, objCommand, objRecordSet
Dim strQuery, strBase, strFilter, strAttributes
‘ 1. コネクションの確立
Set objConnection = CreateObject(“ADODB.Connection”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “Active Directory Provider”
‘ 2. クエリの構築（パフォーマンスの鍵はフィルタリングにある）
‘ 特定部署(Department)に属し、アカウントが有効なユーザーを抽出
strBase = “
strFilter = “(&(objectCategory=person)(objectClass=user)(department=Development))”
strAttributes = “sAMAccountName,displayName,mail”
strQuery = strBase & “;” & strFilter & “;” & strAttributes & “;subtree”
‘ 3. コマンドオブジェクトの設定
Set objCommand = CreateObject(“ADODB.Command”)
Set objCommand.ActiveConnection = objConnection
objCommand.Properties(“Page Size”) = 1000 ‘ 重要：これがないと1000件で打ち切られる
objCommand.CommandText = strQuery
‘ 4. 実行とパース
Set objRecordSet = objCommand.Execute
Do Until objRecordSet.EOF
WScript.Echo objRecordSet.Fields(“sAMAccountName”).Value & ” | ” & _
objRecordSet.Fields(“mail”).Value
objRecordSet.MoveNext
Loop
‘ 5. メモリの明示的解放（伝説的エンジニアの嗜み）
objRecordSet.Close
Set objRecordSet = Nothing
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
—
3. シニアエンジニアが意識すべき「見えないコスト」
Page Size プロパティの魔力
`objCommand.Properties(“Page Size”) = 1000`。この一行を忘れた瞬間、クエリは最大1000件という制約に縛られる。ADのデフォルト設定に甘んじるな。この値は、検索結果をチャンク単位で取得するためのものであり、ネットワーク負荷とメモリ消費のバランスを決定づけるパラメータだ。
LDAPクエリのフィルタ最適化
SQLにおいて `SELECT ` が罪であるのと同様、LDAPにおいても無意味な属性取得は罪である。`strAttributes` には必要なカラムのみを記述せよ。特に `memberOf` のような多値属性は、取得コストが跳ね上がる。必要な時以外は決してクエリに含めてはならない。
接続の再利用
もしこのスクリプトをループ内で何度も呼び出すなら、`Connection` オブジェクトの使い回しを検討せよ。接続確立（Handshake）のオーバーヘッドを排除するだけで、実行時間は劇的に短縮される。
—
4. 最後に：レガシーを愛するということ
VBScriptは「古い」のではない。「完成されている」のだ。依存関係が少なく、OSネイティブで動作するこの言語は、インフラが不安定な環境や、極限まで軽量化が求められる自動化ツールにおいて、依然として最強の武器である。
`ADsDSOObject` を使いこなすことは、Windowsインフラの深淵を制御することに他ならない。貴殿が書くその一行のスクリプトが、明日のシステム管理者の救いとなることを願う。
コードの最適化に終わりはない。今日のコードが明日のレガシーになる前に、常に洗練を怠るな。それが、エンジニアの矜持だ。
