専門用語を適切に用い、論理的で簡潔なビジネス文章を作成する。
読者の実務レベル（中級者以上）に合わせ、技術的な背景と具体的なコード実装をセットで提示。
安全性と保守性を重視し、エラーハンドリングや最新のOffice環境（64bit）への配慮を欠かさない。
本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。
VBA×WMI：リモートPCのシステム情報を一括取得する効率的アプローチ
【背景と目的】
IT資産管理での手動確認は非効率です。VBAとWMIを用いてネットワーク経由で複数台のスペック情報を自動取得し、管理業務を高速化する手法を解説します。
【処理フロー図】
graph TD A["開始"] --> B["対象PCリストの読み込み"] B --> C["WMI接続試行"] C -->|成功| D["OS・CPU・メモリ情報の取得"] C -->|失敗| E["エラーログ記録"] D --> F["配列へ格納"] F --> G["シートへの一括書き出し"] G --> H["終了"]
【実装：VBAコード】
Option Explicit
' 64bit環境に対応したAPI宣言（待機処理用）
#If Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
''' <summary>
''' 指定したPC名のリストからシステム情報を取得し、アクティブシートに出力する
''' </summary>
Sub GetRemoteSystemInfo()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim pcList As Variant
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' PC名がA列に入力されていると想定（2行目から）
If lastRow < 2 Then Exit Sub
pcList = ws.Range("A2:A" & lastRow).Value
' 結果格納用配列（PC名, OS, CPU, RAM）
Dim results() As Variant
ReDim results(1 To UBound(pcList, 1), 1 To 4)
Dim i As Long
Dim strComputer As String
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
' 高速化設定
Application.ScreenUpdating = False
For i = 1 To UBound(pcList, 1)
strComputer = pcList(i, 1)
results(i, 1) = strComputer
On Error Resume Next
' WMIサービスへの接続（参照設定不要のレイトバインディング）
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If Err.Number <> 0 Then
results(i, 2) = "接続エラー: " & Err.Description
Err.Clear
Else
' OS情報の取得
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem In colItems
results(i, 2) = objItem.Caption & " (" & objItem.Version & ")"
' 総物理メモリ(KB)をGBに変換して取得
results(i, 4) = Round(objItem.TotalVisibleMemorySize / 1024 / 1024, 1) & " GB"
Next
' CPU情報の取得
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
results(i, 3) = Trim(objItem.Name)
Next
End If
On Error GoTo 0
' ネットワーク負荷軽減のための微小待機
Sleep 50
Next i
' 結果を一括出力（B列～E列）
ws.Range("B2").Resize(UBound(results, 1), 4).Value = results
Application.ScreenUpdating = True
MsgBox "情報取得が完了しました。", vbInformation
End Sub
【技術解説】
WMI (Windows Management Instrumentation): Windowsの管理情報を取得するための共通基盤です。
root\cimv2ネームスペースには、ハードウェアやOSに関するクラスが網羅されています。レイトバインディング:
CreateObjectやGetObjectを利用することで、特定のライブラリ参照設定（Microsoft WMI Scripting V1.2 Library等）を不要にし、他ユーザーへの配布時のトラブルを防止しています。配列による一括処理: セルへの個別書き込みは低速なため、一度Variant配列に結果を格納し、最後にまとめてシートへ反映させることで処理速度を劇的に向上させています。
【注意点と運用】
権限設定: リモート接続を行うには、対象PCに対して管理者権限を持つアカウントで実行する必要があります。
ファイアウォールの遮断: リモートWMI（RPC）が許可されていない環境では接続エラーとなります。グループポリシーでの設定確認が必要です。
タイムアウトの考慮: 応答のないPCが含まれる場合、
GetObjectで処理が数秒停止します。台数が多い場合は、事前にPingによる生存確認を組み込むことを推奨します。
【まとめ】
WMIを活用することで、追加ソフトなしで詳細なスペック収集が可能。
配列処理とScreenUpdating停止により、大量データでもストレスのない動作を実現。
権限とネットワーク環境の事前確認が、安定運用の最大の鍵となる。
コメント