本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。
WMIを活用したリモートPCのディスク空き容量一括取得ツールの開発
【背景と目的】
ネットワーク経由で複数端末のストレージ残量を自動収集し、手動確認の手間と接続エラーによる処理の中断を解消します（59文字）。
【処理フロー図】
graph TD A["開始"] --> B["対象ホスト名リストの読み込み"] B --> C["SWbemLocatorでリモート接続"] C -->|接続成功| D["Win32_LogicalDiskをクエリ"] C -->|接続失敗| E["エラー情報を配列に格納"] D --> F["空き容量・総容量を取得しGB換算"] F --> G["結果を2D配列へ格納"] G --> H["全件完了後にシートへ一括出力"] H --> I["終了"]
【実装：VBAコード】
Option Explicit
' ================================================================
' 概要: リモートPCのディスク情報を一括取得する
' 備考: 参照設定不要（Late Binding）
' ================================================================
Sub GetRemoteDiskFreeSpace()
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
' 入力値（A列にホスト名があると想定）
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If lastRow < 2 Then Exit Sub
Dim targetHosts As Variant
targetHosts = ws.Range("A2:A" & lastRow).Value
' 結果格納用配列 (ホスト名, ドライブ, 空き容量, 総容量, 状態)
Dim results() As Variant
ReDim results(1 To UBound(targetHosts), 1 To 5)
' 高速化設定
Application.ScreenUpdating = False
Dim locator As Object
Dim service As Object
Dim disks As Object
Dim disk As Object
Dim i As Long
On Error Resume Next
Set locator = CreateObject("WbemScripting.SWbemLocator")
For i = 1 To UBound(targetHosts)
Dim host As String
host = targetHosts(i, 1)
results(i, 1) = host
If host = "" Then GoTo NextHost
' WMI接続（タイムアウトや権限エラーを考慮）
Err.Clear
Set service = locator.ConnectServer(host, "root\cimv2")
If Err.Number <> 0 Then
results(i, 5) = "接続エラー: " & Err.Description
Else
' 論理ディスク情報の取得（DriveType=3 は固定ディスク）
Set disks = service.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3")
Dim diskCount As Integer: diskCount = 0
For Each disk In disks
' 最初のドライブ情報のみ取得（実務に合わせて拡張可能）
results(i, 2) = disk.DeviceID
results(i, 3) = Round(disk.FreeSpace / 1024 / 1024 / 1024, 2) & " GB"
results(i, 4) = Round(disk.Size / 1024 / 1024 / 1024, 2) & " GB"
results(i, 5) = "正常"
Exit For ' 複数ドライブある場合はここを調整
Next
End If
NextHost:
Next i
On Error GoTo 0
' シートへ一括出力（B列～F列）
ws.Range("B2").Resize(UBound(results, 1), UBound(results, 2)).Value = results
Application.ScreenUpdating = True
MsgBox "ディスク情報の取得が完了しました。", vbInformation
End Sub
【技術解説】
SWbemLocator (Late Binding):
WbemScripting.SWbemLocatorを使用することで、配布先のPCで参照設定の不整合（参照不可エラー）が発生するリスクを排除しています。Win32_LogicalDisk クエリ:
DriveType = 3と指定することで、ネットワークドライブや光学ドライブを除外し、ローカルのHDD/SSDのみを効率的に抽出します。配列処理による高速化: セルへの書き込みをループ内で行わず、全てのデータを一度
results配列に格納してから、最後に一括してセルへ流し込むことで、処理時間を大幅に短縮しています。エラーハンドリング: リモート接続特有の「RPCサーバーが利用できません」等のエラーでマクロが停止しないよう、
On Error Resume NextとErr.Numberのチェックを組み合わせています。
【注意点と運用】
管理者権限とファイアウォール: リモートPC側で WMI (DCOM) が許可されている必要があります。拒否される場合は、Windows Defender ファイアウォールの「WMI経由の管理」を許可設定にしてください。
認証情報: 本コードは実行ユーザーの権限で接続します。別ドメインや別ユーザーとして実行する場合は、
ConnectServerメソッドの引数にユーザー名とパスワードを渡す必要があります。64bit環境の考慮: 今回は Win32 API を直接叩かず、COMコンポーネント（WMI）を利用しているため、
PtrSafeは不要ですが、VBA7以降（Excel 2010以降）であれば問題なく動作します。
【まとめ】
一括処理: 配列を活用してセルアクセス回数を最小限に抑えるのが高速化の鍵。
安定性:
On Error Resume Nextを局所的に使い、接続失敗したPCを飛ばして処理を継続させる。柔軟性: WMIクエリを変更するだけで、CPU情報やメモリ使用量などの取得にも応用可能。
