【入門編】【上級プロフェッショナル向け】FSOとWMI（Win32_Volume）連携によるBitLocker暗号化ドライブの状態判定と自動処理 – VBScript (Visual Basic Scripting Edition)解析バイブル

【上級プロフェッショナルへの階段】FSOとWMIを融合させ、セキュリティを自動化に組み込む極限の技法

「ファイルがコピーできた。よし、完了だ」

もしあなたが、単にファイルやフォルダを移動させるだけのスクリプトを書いているとしたら、それはまだ「自動化の入り口」に立ったばかりと言えるでしょう。

エンタープライズ（企業）の現場で求められるのは、単なる作業の自動化ではありません。「その操作は、セキュリティポリシーに適合しているか？」という判断を伴う、インテリジェントな自動化です。

例えば、機密情報が含まれるファイルをUSBメモリに書き出す際、そのドライブがBitLockerで暗号化されているかどうかを確認せずに実行するスクリプト……。これは自動化ではなく、単なる「リスクの高速化」です。

今日は、VBScriptの二大巨頭であるFSO（FileSystemObject）とWMI（Windows Management Instrumentation）を連携させ、ドライブの暗号化状態を判定してから機密操作を行う、プロフェッショナルなロジックを伝授します。

ここをクリアすれば、あなたのVBScriptは「道具」から「システム」へと進化しますよ。

1. 二つの「目」を使い分ける：FSOとWMIの本質的な違い

まず、混乱しやすい二つのオブジェクトの役割を、脳内に整理しておきましょう。

FSO (FileSystemObject)： 「手」の役割

FSOは、ファイルやフォルダという「実体」を操作するためのものです。

• ファイルを作る、消す、コピーする。
• フォルダが存在するか確認する。
• ファイルの中身を読み書きする。

いわば、「実際に作業を行う労働者」です。しかし、FSOは「そのドライブが安全かどうか」といった、システム全体のコンテキスト（文脈）を知る術を持っていません。

WMI (Windows Management Instrumentation)： 「目」の役割

WMIは、Windows OSそのものが持つ膨大なデータベースへの窓口です。

• CPUの温度は？
• メモリの空き容量は？
• このドライブはBitLockerで暗号化されているか？

WMIは、システムの「状態」を監視する「高度なセンサー」です。

プロフェッショナルなスクリプトとは、WMIという「目」で状況を判断し、FSOという「手」に動くべきかどうかを指示する、この連携によって成立するのです。

2. 実践：BitLocker状態を検知する「ゲートキーパー」ロジック

では、具体的なコードを見ていきましょう。今回のミッションは、「指定したドライブがBitLockerで保護されている場合のみ、機密ファイルを書き込む」というものです。

' ==========================================================================
' Script Name: SecureFileTransfer.vbs
' Description: WMIでBitLocker状態を確認し、安全な場合のみFSOで操作を行う
' Author: Legendary Architect
' ==========================================================================

Option Explicit

' --- 設定値 ---
Dim targetDrive, secretFilePath, logMessage
targetDrive = "D:"             ' 判定対象のドライブ
secretFilePath = "D:\Secure\Confidential.txt" ' 書き込み先のファイルパス
logMessage = "CONFIDENTIAL DATA: " & Now()

' --- メイン処理 ---
Main

Sub Main()
    Dim isProtected
    
    ' 1. WMIを使ってBitLockerの状態を判定（ゲートキーパー）
    isProtected = CheckBitLockerStatus(targetDrive)
    
    If isProtected Then
        WScript.Echo "【OK】ドライブ " & targetDrive & " は暗号化されています。処理を開始します。"
        ' 2. 安全が確認できたので、FSOでファイル操作を実行
        ExecuteSecureFileOperation(secretFilePath, logMessage)
    Else
        ' セキュリティ違反として処理を中断
        WScript.Echo "【ERROR】ドライブ " & targetDrive & " は暗号化されていません！" & vbCrLf & _
                     "機密情報の書き込みを中止しました。管理者に報告してください。"
        ' 本来はここでログ出力やメール通知を行う
    End If
End Sub

' ==========================================================================
' 関数: CheckBitLockerStatus
' 引数: strDrive (例: "C:")
' 戻り値: Boolean (暗号化されていればTrue)
' ==========================================================================
Function CheckBitLockerStatus(strDrive)
    Dim objWMIService, colVolumes, objVolume
    Dim strQuery, bStatus
    
    bStatus = False ' デフォルトは安全ではない状態
    
    On Error Resume Next ' WMI接続エラーに備える
    
    ' WMIサービスへの接続
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
    If Err.Number <> 0 Then
        WScript.Echo "WMI接続エラー: " & Err.Description
        Exit Function
    End If
    
    ' Win32_Volumeクラスから、特定のドライブレターを持つボリュームを検索
    ' ProtectionStatus プロパティを使用する
    ' 0 = 保護なし, 1 = 保護されている
    strQuery = "SELECT ProtectionStatus FROM Win32_Volume WHERE DriveLetter = '" & strDrive & "'"
    Set colVolumes = objWMIService.ExecQuery(strQuery)
    
    For Each objVolume In colVolumes
        ' ProtectionStatusが1（暗号化済み）かチェック
        If objVolume.ProtectionStatus = 1 Then
            bStatus = True
        End If
    Next
    
    ' オブジェクトの解放（メモリ管理の鉄則）
    Set colVolumes = Nothing
    Set objWMIService = Nothing
    On Error GoTo 0
    
    CheckBitLockerStatus = bStatus
End Function

' ==========================================================================
' 関数: ExecuteSecureFileOperation
' 引数: strPath (ファイルパス), strContent (書き込む内容)
' ==========================================================================
Sub ExecuteSecureFileOperation(strPath, strContent)
    Dim objFSO, objFile, strFolder
    
    On Error Resume Next
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' フォルダが存在するか確認
    strFolder = objFSO.GetParentFolderName(strPath)
    If Not objFSO.FolderExists(strFolder) Then
        ' フォルダがなければ作成する（再帰的な作成は省略した簡易版）
        objFSO.CreateFolder(strFolder)
    End If
    
    ' ファイルの作成と書き込み
    Set objFile = objFSO.CreateTextFile(strPath, True)
    If Err.Number = 0 Then
        objFile.WriteLine(strContent)
        objFile.Close
        WScript.Echo "【成功】機密ファイルを安全に保存しました: " & strPath
    Else
        WScript.Echo "【失敗】ファイル作成中にエラーが発生しました: " & Err.Description
    End If
    
    ' オブジェクトの解放
    Set objFile = Nothing
    Set objFSO = Nothing
    On Error GoTo 0
End Sub

3. プロフェッショナルの知見：陥りやすい「罠」と回避策

このコードを自分のものにするために、コードの背後にある「設計思想」を理解しておきましょう。

① オブジェクトのライフサイクル（メモリ管理）

コードの終わりに必ず `Set obj = Nothing` を書いていることに気づきましたか？
VBScriptはCOM（Component Object Model）を利用しています。オブジェクトを使い終わった後に明示的に解放しないと、スクリプトが終了してもメモリ上にゴミが残り続けたり、ファイルが「使用中」としてロックされたままになったりすることがあります。「使い終わったら、必ず成仏させる」。これがプロの作法です。

② `On Error Resume Next` の使いどころ

初心者の方は、エラーが出ると怖くて、すべての行に `On Error Resume Next` を書いてしまいがちです。これは非常に危険です。
エラーを無視しすぎると、「なぜか動かないが、エラーも出ない」という、最もデバッグが困難な最悪の状態を招きます。

• WMIへの接続や、外部環境（ドライブの有無）など、「制御不能な外部要因」が絡む場所に限定して使いましょう。

③ WMIクエリのパフォーマンス

`Win32_Volume` クラスは非常に強力ですが、全ボリュームをなめるようなクエリ（`SELECT * FROM Win32_Volume`）を頻繁に実行すると、システムに負荷をかけます。
今回の例のように `WHERE DriveLetter = ‘D:’` と条件を絞り込むことで、検索コストを最小限に抑えています。

まとめ：自動化の先にある「信頼」を築く

いかがでしたか？

単に「ファイルをコピーする」スクリプトと、「ドライブの状態を確認し、安全であることを保証してからコピーする」スクリプト。
この差は、単なるコードの行数の差ではなく、「そのシステムを信頼できるか」という品質の差です。

1. WMIでシステムのコンテキスト（状況）を読み取る。
2. ロジックで意思決定を行う。
3. FSOで確実なアクションを実行する。

この三段構えをマスターすれば、あなたの書くVBScriptは、現場のエンジニアから「このスクリプトなら安心して任せられる」と信頼される、真のエンタープライズ・ツールへと昇華するはずです。

さあ、次はあなたの手で、この「知的な自動化」を実装してみてください。応援していますよ！