VBScriptを極める：FSOとWMIの「ハイブリッド戦略」でファイル管理を支配する
VBScriptは「レガシー」と呼ばれることがある。しかし、それは言語の限界ではなく、使い手の想像力の限界だ。Windowsの深淵に触れる管理業務において、`Scripting.FileSystemObject` (FSO) だけに頼るのは、片手で重機を操ろうとするに等しい。
真のアーキテクトは知っている。FSOの「軽快な操作性」と、WMI (Windows Management Instrumentation) の「メタデータへの深層アクセス」をいかに調和させるかが、システム自動化の分水嶺であることを。
1. なぜFSOとWMIのハイブリッドが必要なのか
FSOはファイル・フォルダの列挙やストリーム操作において極めて優秀だ。しかし、以下の領域で致命的な弱点を露呈する。
- 所有者情報（Owner）の取得: FSOの`File`オブジェクトに所有者を特定するプロパティは存在しない。
- クエリによる絞り込み: 大量のファイルから特定の条件（作成日時、所有者、隠し属性）で抽出する場合、FSOで再帰的に回すとメモリを浪費し、処理速度が劣化する。
- WMIの役割: `Win32_Directory`や`CIM_DataFile`を組み合わせることで、OSカーネルに近いレイヤーでフィルタリングされた結果のみをハンドリングできる。
2. 実践：ハイブリッドアプローチによる所有者別集計エンジン
以下のコードは、WMIで所有者情報を抽出し、それをキーとしてFSOで詳細なメタデータを補完するアーキテクチャだ。
‘ — 極限の自動化: WMIによる高速フィルタリングとFSOによる詳細操作 —
Option Explicit
Dim objWMIService, colFiles, objFile
Dim strComputer, strQuery
Dim fso, targetFolder
Set fso = CreateObject(“Scripting.FileSystemObject”)
strComputer = “.”
‘ 1. WMI接続 (セキュリティと権限に注意: 実行は管理者特権で)
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
‘ 2. 特定のフォルダ内のファイルをWMIで絞り込む（所有者等のメタデータ取得）
‘ 階層が深い場合、WQLでの絞り込みはFSO再帰よりも圧倒的に低負荷
strQuery = “SELECT Name, Owner FROM Win32_LogicalFileSecuritySetting WHERE Path LIKE ‘C:\\Data\\%'”
Set colFiles = objWMIService.ExecQuery(strQuery)
For Each objFile In colFiles
‘ WMIで取得したパスをFSOのオブジェクトへ変換
If fso.FileExists(objFile.Name) Then
Dim fsoFile
Set fsoFile = fso.GetFile(objFile.Name)
‘ ここで所有者情報とFSOの属性をマージする
WScript.Echo “File: ” & fsoFile.Name
WScript.Echo “Path: ” & fsoFile.Path
WScript.Echo “Size: ” & fsoFile.Size & ” bytes”
‘ セキュリティ設定の詳細はWMI側でハンドリング
WScript.Echo “———————————–”
‘ オブジェクトの明示的解放（VBScriptのメモリ管理の基本）
Set fsoFile = Nothing
End If
Next
‘ 3. 後始末（メモリリークを許さない）
Set colFiles = Nothing
Set objWMIService = Nothing
Set fso = Nothing
3. シニアエンジニアが知るべき「メモリ最適化」の真実
VBScriptのメモリ管理は参照カウンタ方式だ。多くの開発者が犯す過ちは、`Set obj = Nothing`を単なる儀式と考えていることにある。
- スコープの最小化: ループ内でオブジェクトを生成し続けることは、メモリフラグメンテーションの元凶となる。可能であれば、インターフェースを保持し、再利用可能なオブジェクトはループの外で生成せよ。
- 例外ハンドリングの徹底: `On Error Resume Next`は諸刃の剣だ。WMIクエリはWQL構文の誤りで簡単にクラッシュする。必ず`Err.Number`をチェックし、ログへ出力する「死なないコード」を書くことが、保守性の高いレガシーシステムの絶対条件である。
4. なぜ今、WMIなのか
現代のPowerShell全盛の時代にあっても、VBScriptが消滅しない理由は「依存関係のゼロ」にある。`.NET Framework`や`PowerShell`のバージョン差異を気にする必要がない。
`Win32_Directory`や`Win32_LogicalFileSecuritySetting`を使いこなせば、OSのセキュリティログや所有者権限の変更監視など、高度なガバナンス機能をわずか数十行のコードで実装できる。
結論：技術は「道具」ではなく「哲学」
FSOとWMIを組み合わせることは、単なるコードのテクニックではない。「OSのどの層で処理を行うのが最も効率的か」を常に計算するアーキテクトの思考そのものだ。
ファイルシステムに潜む膨大なデータを、いかに軽やかに、いかに正確に抽出し、制御するか。この知見があれば、どんなに古い基幹システムであろうと、最新のクラウド環境であろうと、君は「システムを支配する側」に立ち続けられるはずだ。
コードを書き終えたら、必ず`Nothing`を忘れるな。それが、システムへの敬意だ。
