VBScriptを掌握する：FileSystemObjectによるドライブ種別判定の極意
多くのエンジニアが「枯れた技術」と切り捨てるVBScript。だが、Windowsの心臓部で今なお軽快に動き続け、数百台のサーバー管理からレガシーシステムのバッチ処理までを支えるこの言語を、我々は過小評価してはならない。
特に、データ保護が最優先される企業環境において、`FileSystemObject (FSO)`を用いたドライブ種別の動的判定は、事故を未然に防ぐための「最後の防波堤」である。今日は、単なるリファレンスの焼き直しではない、現場で生き抜くためのドライブ判定アーキテクチャを紐解く。
—
1. DriveType プロパティの深淵
`FSO.GetDrive` メソッドが返す `Drive` オブジェクトには、`DriveType` というプロパティがある。これは単なる数値ではない。OSが認識する物理層と論理層の境界線を示す、極めて重要なメタデータだ。
VBScriptにおいて、この判定を曖昧にすることは、ネットワーク切断時のハングアップや、誤ったリムーバブルメディアへの大容量書き込みによるシステム停滞を招く。我々は以下の定数を、脊髄反射レベルで把握しておく必要がある。
- 0 (Unknown): 判定不能。多くの場合、ネットワークドライブの切断状態。
- 1 (Removable): USBメモリ、SDカード。不安定なメディアの代名詞。
- 2 (Fixed): 内蔵HDD/SSD。信頼性の高いストレージ。
- 3 (Remote): ネットワーク共有。遅延(Latency)の考慮が必須。
- 4 (CD-ROM): 光学ドライブ。読み取り専用が前提。
- 5 (RAMDisk): 高速だが揮発性。
—
2. 堅牢なドライブ判定アーキテクチャ
以下に示すコードは、単に判定を行うだけでなく、リソースのリークを防ぐためのオブジェクト破棄と、ネットワークドライブ特有の「応答なし」を回避するガードロジックを組み込んだ実戦型テンプレートだ。
‘ — DriveValidator.vbs —
Option Explicit
‘ メイン処理
Call ProcessDrive(“Z:\”)
Sub ProcessDrive(strDrivePath)
Dim fso, drv, driveType
‘ FSOのインスタンス化（スコープを限定し、メモリ消費を最適化する）
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ドライブパスの正規化（ルート形式 “C:” への変換）
Dim driveLetter
driveLetter = fso.GetDriveName(strDrivePath)
If Not fso.DriveExists(driveLetter) Then
WScript.Echo “Error: ドライブが存在しません。”
Set fso = Nothing
Exit Sub
End If
Set drv = fso.GetDrive(driveLetter)
driveType = drv.DriveType
‘ ドライブ種別による分岐
Select Case driveType
Case 1
WScript.Echo “警告: リムーバブルメディアです。安全な書き込み処理を開始します。”
‘ ここにUSBメモリ専用のバッファリング処理などを記述
Case 2
WScript.Echo “情報: ローカルストレージです。高速書き込みを実行。”
Case 3
WScript.Echo “情報: ネットワークドライブです。ネットワーク遅延を考慮したエラーハンドリングを適用。”
Case Else
WScript.Echo “通知: その他のストレージ種別です。”
End Select
‘ オブジェクトの明示的解放
‘ VBScriptのGC（ガベージコレクション）を信頼しすぎないのが、
‘ 大規模バッチの安定稼働を支える鉄則である。
Set drv = Nothing
Set fso = Nothing
End Sub
—
3. シニアアーキテクトからの提言
オブジェクトのライフサイクル管理
VBScriptのメモリ管理は、現代の言語に比べればプリミティブだ。特にWSH上で長時間稼働する監視スクリプトにおいて、`Set fso = Nothing` を怠ることは、メモリリークの温床となる。常に生成と破棄のスコープを最小単位に絞り込むこと。
ネットワークドライブの罠
`DriveType` が `3`（Remote）を返す場合、背後ではSMBプロトコルが動作している。ネットワーク共有先のサーバーが応答を停止している場合、`GetDrive` へのアクセス自体がタイムアウトまで待機状態に陥ることがある。
極限の可用性が求められる現場では、WMI (Windows Management Instrumentation) を併用し、`Win32_LogicalDisk` の `Availability` プロパティをチェックする手法を検討せよ。FSOはあくまで「簡易的かつ高速な」判定ツールであることを忘れてはならない。
レガシー保守の極意
もし、社内の古いシステムで「ドライブ判定で死ぬスクリプト」に出会ったら、それはドライブの物理的な故障ではなく、WSHの実行権限やセキュリティポリシーが原因であることが多い。`FileSystemObject` は特権的なI/Oを伴うため、必ず適切な権限（必要であれば実行ユーザーの昇格）を検討すること。
—
結びに
技術に流行り廃りはない。あるのは「そのツールを使いこなす知見の深さ」だけだ。
VBScriptは、OSの深淵を覗くための最小単位の窓である。このコードをベースに、君自身の現場の要件に合わせてカスタマイズしてほしい。それができるようになった時、君もまた、レガシーシステムの番人として一人前である。
