【属性制御の極意】FSOのAttributesプロパティを完全掌握し、レガシー環境のファイルロックをねじ伏せる方法
レガシーシステムの保守、あるいは生々しいオンプレミス環境の自動化において、最もエンジニアの精神を削るもののひとつが「ファイル属性によるアクセス拒否」である。
「読み取り専用（ReadOnly）」が付与された設定ファイル、「隠しファイル（Hidden）」属性のまま置き去りにされたログ、あるいはOSのセキュリティ機構や古いバックアップソフトによって保持されたままのファイル群。これらをVBScript（Visual Basic Scripting Edition）からシームレスに操作し、必要な改変を加えた後に元の厳重な衣をまとわせ直す――。
この一見地味な「属性の剥奪と再付与」のプロセスには、Windowsファイルシステムのビット演算の理と、FSO（FileSystemObject）のメモリ管理の妙が凝縮されている。今回は、単なるリファレンスの引き写しではない、実務の修羅場をくぐり抜けてきたアーキテクトのための極限の知見を公開する。
—
1. FSOの `Attributes` プロパティの本質：ビット演算の罠
VBScriptの `FileSystemObject` が提供する `Attributes` プロパティは、単なる数値のgetter/setterではない。これはWindowsのファイル属性（File Attribute Constants）を凝縮したビットフィールド（Bitfield）そのものだ。
主要な属性フラグの定数マッピング
- Normal (0): 通常ファイル。他の属性は設定されていない。
- ReadOnly (1): 読み取り専用。
- Hidden (2): 隠しファイル。
- System (4): システムファイル。
- Directory (16): フォルダ（読み取り専用）。
- Archive (32): アーカイブ（前回のバックアップ以降に変更された）。
シニアエンジニアであれば常識だが、`Attributes` を操作する際、「現在の値を無視して単一のフラグを代入する」という愚行を犯してはならない。
例えば、あるファイルが「隠しファイルかつ読み取り専用」であった場合、単純に `ReadOnly` を解除しようとして `file.Attributes = 0` などとやれば、隠し属性まで同時に吹き飛んでしまう。
複数の属性が混在する環境下では、必ずビット演算（AND, OR, XOR, NOT）を駆使して対象のフラグのみを安全にトグルしなければならないのだ。
—
2. アーキテクチャ設計：安全な属性制御のライフサイクル
実務で求められる堅牢なファイル更新スクリプトは、以下のトランザクション的ライフサイクルを厳守する必要がある。
1. 存在・アクセス性検証: ファイルの存在確認と、現在の属性スナップショットの取得。
2. 属性剥奪（一時解除）: 更新を阻害する `ReadOnly`（および必要に応じて `System`/`Hidden`）のビットを安全にクリア。
3. I/O実行: ストリーム書き込みやファイル置換などの本来の処理。
4. 属性復元: 更新完了後（あるいはエラー発生時の例外キャッチ内）、元の属性ビットを厳密にリストア。
5. メモリ解放: FSOおよびCOMオブジェクトの確実な破棄。
VBScriptには近代的な `try…catch` 構文が存在しないため、`On Error Resume Next` と `Err.Number` の監視による擬似的な例外ハンドリング設計が不可欠となる。
—
3. 実装コード：極限まで最適化された実用スクリプト
以下に、現場でそのままコピペして運用可能な、堅牢性とパフォーマンスを極限まで高めた実用スクリプトを提示する。
Option Explicit
‘ ==============================================================================
‘ スクリプト名: SafeAttributeModifier.vbs
‘ 概要: 読み取り専用・システム属性を一時解除して安全にファイルを更新・復元する
‘ アーキテクト仕様: エラーハンドリング、ビット演算、メモリ明示解放完備
‘ ==============================================================================
Call Main()
Sub Main()
Dim targetFilePath
targetFilePath = “C:\inetpub\wwwroot\config\settings.json” ‘ 対象の保護されたファイル
‘ ファイル更新処理の実行
Dim success
success = UpdateProtectedFile(targetFilePath, ““)
If success Then
WScript.Echo “[SUCCESS] ファイルの属性制御および更新が正常に完了しました。”
Else
WScript.Echo “[ERROR] 処理中に致命的なエラーが発生しました。”
End If
End Sub
Function UpdateProtectedFile(filePath, payload)
Dim fso, file
Dim originalAttributes
Dim isModified
UpdateProtectedFile = False
isModified = False
‘ FSOのインスタンス生成（プロセススコープでの最適化）
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ファイル存在確認
If Not fso.FileExists(filePath) Then
WScript.Echo “[ERROR] 対象ファイルが存在しません: ” & filePath
Set fso = Nothing
Exit Function
End If
Set file = fso.GetFile(filePath)
‘ ————————————————————————–
‘ 1. 現在の属性を退避
‘ ————————————————————————–
originalAttributes = file.Attributes
WScript.Echo “[INFO] 現在の属性値 (Hex): &H” & Hex(originalAttributes)
‘ ————————————————————————–
‘ 2. 読み取り専用(1)およびシステム(4)属性の一時解除
‘ ビット演算: 既存の属性から ReadOnly と System のフラグを強制的に剥ぎ取る
‘ 演算式: Attr AND (NOT TargetFlag)
‘ ————————————————————————–
Const FLAG_READONLY = 1
Const FLAG_SYSTEM = 4
Dim mask
mask = Not (FLAG_READONLY Or FLAG_SYSTEM)
On Error Resume Next
‘ 属性変更の適用
file.Attributes = originalAttributes And mask
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 属性の解除に失敗しました。Error: ” & Err.Description
Call CleanupAndExit(file, fso, Nothing)
Exit Function
End If
WScript.Echo “[INFO] 属性を一時解除しました。更新処理へ移行します。”
‘ ————————————————————————–
‘ 3. 実データ更新処理（例としてテキスト追記）
‘ ————————————————————————–
Dim ts
Set ts = file.OpenAsTextStream(8, 0) ‘ 8=ForAppending, 0=TristateFalse(ASCII)
If Err.Number <> 0 Then
WScript.Echo “[ERROR] ファイルストリームのオープンに失敗しました。Error: ” & Err.Description
GoTo RestoreAttributes ‘ エラー時は確実に復元処理へジャンプ
End If
ts.WriteLine payload
ts.Close
Set ts = Nothing
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 書き込み中にエラーが発生しました。Error: ” & Err.Description
GoTo RestoreAttributes
End If
isModified = True
RestoreAttributes:
‘ ————————————————————————–
‘ 4. 属性の厳密な復元（例外時も必ず実行されるルーチン）
‘ ————————————————————————–
‘ ファイルオブジェクトの参照が切れている可能性があるため再取得
Set file = fso.GetFile(filePath)
file.Attributes = originalAttributes
If Err.Number <> 0 Then
WScript.Echo “[CRITICAL] 属性の復元に失敗しました！手動での確認が必要です。Error: ” & Err.Description
Else
WScript.Echo “[INFO] 属性を元の状態(&H” & Hex(originalAttributes) & “)に復元しました。”
End If
‘ ————————————————————————–
‘ 5. メモリの明示的解放 (Memory Management)
‘ ————————————————————————–
Call CleanupAndExit(file, fso, ts)
UpdateProtectedFile = isModified
End Function
Sub CleanupAndExit(fileObj, fsoObj, streamObj)
‘ オブジェクト参照の逆順での確実な破棄（COM参照リークの防止）
On Error Resume Next
If Not streamObj Is Nothing Then Set streamObj = Nothing
If Not fileObj Is Nothing Then Set fileObj = Nothing
If Not fsoObj Is Nothing Then Set fsoObj = Nothing
On Error GoTo 0
End Sub
—
4. チーフアーキテクトが指摘する「現場の罠」とベストプラクティス
① アンチパターン：エラー時の「属性置き去り」
初学者が書くスクリプトの多くは、書き込み処理でエラーが発生した際、そのままプログラムが終了してしまう。結果として、本来「読み取り専用」であるべきシステム設定ファイルが、野ざらしの書き込み可能状態（Normal）のまま放置されるという致命的なセキュリティホールを生む。
上記のコード例にあるように、`GoTo` を用いたジャンプ構文（VBScriptの数少ない構造化の逃げ道）を活用し、いかなる異常系を通ろうとも、最終的に元の `originalAttributes` が必ず書き戻される構造を強制しなければならない。
② COMオブジェクトのライフサイクルとメモリ最適化
VBScriptの背後でうごめくFSOなどのCOMオブジェクトは、スクリプト終了時に自動解放される――というのは、小規模なスクリプトでのみ許される甘えである。
24時間稼働するタスクスケジューラや、IISから呼び出されるASP（Active Server Pages）環境、あるいはループ内で数千ファイルを処理するバッチにおいて、`Set fso = Nothing` による明示的な参照切断を行わないと、COMコンポーネントの参照カウントがリークし、メモリ肥大化（Bloat）やプロセスロックを引き起こす。
アーキテクトたるもの、オブジェクトは生成したスコープの責任において確実に破壊すべし。
③ ネットワーク共有（UNCパス）における挙動の非対称性
ローカルドライブ（NTFS）と異なり、NASやWindowsファイルサーバーの共有フォルダ（UNCパス: `\\server\share\…`）に対してFSO経由で `Attributes` を操作する場合、ネットワークの遅延、SMBプロトコルのバージョン差異、およびIISやタスクランナーの実行ユーザー権限（権限昇格の有無）によって、ビット演算がサイレント failure（エラーを出さずに無視される）を起こすことがある。
ネットワーク越しに属性制御を行う場合は、事前にローカルのテンポラリ領域へファイルをBITSadminやPowerShell経由で安全にダウンロードし、ローカル上で属性変更・編集を行った上でアップロード・上書きするという「安全圏でのトランザクション」の設計思想を持つことが、システム障害を防ぐ唯一の防壁となる。
—
5. 結びに代えて
VBScriptはレガシーな言語と揶揄されることもある。しかし、OSの根幹にダイレクトにタッチし、メモリとビットの挙動を完全にコントロールする者にとって、これほど軽量で、環境依存の少ない強力な自動化エンジンはほかに存在しない。
FSOの `Attributes` プロパティの裏側にあるビット演算の理を理解し、堅牢なライフサイクル管理を実装すること。それこそが、時代遅れのコードを「不滅の基幹インフラ自動化スクリプト」へと昇華させる唯一の道である。
