VBScriptを掌握せよ：ADsDSOObjectによる超高速ADクエリの極意
Active Directory（AD）管理の現場で、未だに力技のループ処理や、低速な`GetObject(“LDAP://…”)`の再帰呼び出しで消耗していないか？
数千ユーザーを抱える環境で、特定の部署や属性条件でユーザーを抽出する際、非効率なコードはネットワークの帯域とADサーバーのCPUを無駄に食いつぶすだけの「地雷」と化す。
真のエンジニアであれば、ADを単なる階層構造としてではなく、「ADO（ActiveX Data Objects）で叩くべきSQLデータベース」として捉えるべきだ。今日は、VBScriptの真髄である`ADsDSOObject`プロバイダを用いた、高速かつ堅牢なADデータ抽出のアーキテクチャを伝授する。
—
1. なぜ「ADsDSOObject」なのか？
ADへのアクセス手法には大きく分けて2つの流派がある。
1. Direct Binding (GetObject(“LDAP://…”)): 階層を辿るたびにリクエストが発生する。数万件のオブジェクトに対してこれを行うのは、自殺行為に近い。
2. ADsDSOObject (ADO経由): ADをSQLライクな検索エンジンとして扱う。結果セットをサーバー側でフィルタリングして一括取得するため、パフォーマンスが桁違いだ。
業務自動化ツールを組むなら、迷わず後者を選択せよ。
—
2. 堅牢なADクエリのプロダクションコード
このコードは、単に動くだけではない。エラーハンドリングと、メモリリークを防ぐためのオブジェクト破棄まで考慮した、実務耐性のあるテンプレートだ。
‘ AD_Query_Engine.vbs
Option Explicit
‘ 定数定義
Const ADS_SCOPE_SUBTREE = 2
‘ 接続設定
Dim conn, cmd, rs, strQuery
Dim strBase, strFilter, strAttributes
Set conn = CreateObject(“ADODB.Connection”)
Set cmd = CreateObject(“ADODB.Command”)
conn.Provider = “ADsDSOObject”
conn.Open “Active Directory Provider”
Set cmd.ActiveConnection = conn
‘ 検索条件の構築 (LDAPフィルタ構文)
‘ 例：経理部(Department)に所属し、アカウントが有効なユーザーのみ
strBase = “
strFilter = “(&(objectCategory=person)(objectClass=user)(department=経理部)(!(userAccountControl:1.2.840.113556.1.4.803:=2)))”
strAttributes = “sAMAccountName,displayName,mail”
strQuery = strBase & “;” & strFilter & “;” & strAttributes & “;subtree”
cmd.CommandText = strQuery
cmd.Properties(“Page Size”) = 1000 ‘ 大量データ取得時の必須設定
‘ クエリ実行
On Error Resume Next
Set rs = cmd.Execute
If Err.Number <> 0 Then
WScript.Echo “クエリ実行失敗: ” & Err.Description
WScript.Quit
End If
On Error GoTo 0
‘ 結果のパース
If Not rs.EOF Then
Do Until rs.EOF
WScript.Echo rs.Fields(“sAMAccountName”).Value & ” | ” & rs.Fields(“displayName”).Value
rs.MoveNext
Loop
Else
WScript.Echo “該当するユーザーは見つかりませんでした。”
End If
‘ 明示的な解放（メモリ管理の鉄則）
rs.Close
Set rs = Nothing
Set cmd = Nothing
conn.Close
Set conn = Nothing
—
3. 現場で生き残るためのアーキテクチャ設計論
① 「Page Size」プロパティの魔力
`cmd.Properties(“Page Size”) = 1000` を設定しない場合、ADはデフォルトで1000件以上の結果を返さない。あるいは、全件取得しようとしてサーバーに過負荷をかける。このプロパティをセットすることで、サーバー側でページング処理が行われ、大規模環境でも安定して動作するようになる。
② LDAPフィルタの最適化
`(&(objectCategory=person)(objectClass=user))` は必須の定型句だ。ここを怠ると、コンピュータオブジェクトやセキュリティグループまで検索対象となり、パフォーマンスが著しく低下する。また、`userAccountControl` を用いたビットマスク検索（無効アカウントの除外など）は、AD運用の自動化において避けては通れない必須テクニックである。
③ ファイルI/Oとの連携
抽出したデータをCSVに出力する場合、VBScriptの `Scripting.FileSystemObject` を使うのが定石だが、「書き込み回数」を極限まで減らせ。1行ずつ `WriteLine` するのではなく、一度メモリ上のバッファ（String変数など）に貯めてから書き出すか、ADOの `Stream` オブジェクトを活用するのが、大規模バッチ処理におけるプロの作法だ。
—
4. 最後に：エンジニアとしての心構え
「VBScriptは古い」と言う者は多い。しかし、Windows環境の標準機能だけで、外部ライブラリを一切インストールせずにシステム管理の自動化を完結できる言語は、他に類を見ない。
コードが動くのは「当たり前」だ。「どの程度の負荷で、どのようなエラーハンドリングを行い、誰がメンテナンスしても壊れないか」まで考え抜いて初めて、それは「ツール」ではなく「エンジニアの資産」となる。
さあ、このコードを武器に、AD管理の泥沼から脱出し、真に価値のある自動化を実現してほしい。君のコードが、現場の空気を変えることを期待している。
