VBAから外部参照なしでWMI/CIMを利用しPCシステム情報を取得する高速ロジック

Tech

[METADATA_START] { “title”: “VBAによるWMI/CIM活用：外部参照なしでPCシステム情報を高速取得するロジック設計”, “keywords”: [“VBA”, “WMI”, “CIM”, “システム情報取得”, “外部参照なし”, “高速化”, “遅延バインディング”], “date”: “2024-07-31”, “author”: “Office Automation & Database Expert”, “security_level”: “High” } [METADATA_END] 本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。

VBAから外部参照なしでWMI/CIMを利用しPCシステム情報を取得する高速ロジック

【背景と目的】

複数台のPCのハードウェア情報を一括管理する際、既存手法は参照設定が必要なため配布が煩雑になりがちです。本手法は外部参照設定を一切使わず、VBA標準機能とWMIを組み合わせ、実行環境を選ばないセキュアな情報取得環境を構築します。

【処理フロー図】

WMIを介したシステム情報取得の流れを、遅延バインディングの視点から示します。

graph TD
    A["VBA実行開始"] --> B{"ScreenUpdating無効化"};
    B --> C["WbemLocatorオブジェクト生成: CreateObject()"];
    C --> D["WMI Service接続: ConnectServer"];
    D --> E["WQLクエリ実行: ExecQuery"];
    E --> F{"結果セットを配列に格納"};
    F --> G["オブジェクト解放"];
    G --> H["ScreenUpdating有効化"];
    H --> I["終了"];

【実装：VBAコード】

本コードは、OS、CPU、合計物理メモリ容量（MB換算）といった主要なシステム情報を取得し、ワークシートに効率的に出力します。遅延バインディングにより、参照設定は不要です。

Option Explicit

'//////////////////////////////////////////////////////////////////
'// WMI/CIM経由でローカルPCのシステム情報を取得する
'// 参照設定不要 (Late Bindingを使用)
'//////////////////////////////////////////////////////////////////
Sub GetSystemInfoViaWMI()
    ' WMIオブジェクト関連
    Dim objSWLocator As Object    ' SWbemLocator
    Dim objWMIServices As Object  ' SWbemServices
    Dim colItems As Object        ' SWbemObjectSet
    Dim objItem As Object         ' SWbemObject

    ' データ格納用変数
    Dim arrData(1 To 3, 1 To 2) As Variant ' 情報名と値
    Dim lngRow As Long

    ' 高速化処理
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual ' 計算を停止

    ' エラーハンドリング：WMI接続失敗などに備える
    On Error GoTo ErrorHandler

    ' --- 1. WMIへの接続（遅延バインディング） ---
    ' WbemScripting.SWbemLocator オブジェクトを生成
    Set objSWLocator = CreateObject("WbemScripting.SWbemLocator")

    ' WMIサービスに接続 (ローカルコンピュータ、デフォルト名前空間 "root\cimv2")
    Set objWMIServices = objSWLocator.ConnectServer(".", "root\cimv2")

    ' --- 2. OS情報の取得 (Win32_OperatingSystem) ---
    Set colItems = objWMIServices.ExecQuery("SELECT Caption, CSDVersion FROM Win32_OperatingSystem")
    For Each objItem In colItems
        lngRow = 1
        arrData(lngRow, 1) = "OS名"
        arrData(lngRow, 2) = objItem.Caption & " " & objItem.CSDVersion
        Exit For ' 1レコードのみ取得
    Next

    ' --- 3. CPU情報の取得 (Win32_Processor) ---
    Set colItems = objWMIServices.ExecQuery("SELECT Name FROM Win32_Processor")
    For Each objItem In colItems
        lngRow = 2
        arrData(lngRow, 1) = "CPU名"
        arrData(lngRow, 2) = objItem.Name
        Exit For ' 1レコードのみ取得
    Next

    ' --- 4. メモリ情報の取得 (Win32_ComputerSystem) ---
    ' 総物理メモリ容量 (バイト単位で取得されるため、MBに変換)
    Set colItems = objWMIServices.ExecQuery("SELECT TotalPhysicalMemory FROM Win32_ComputerSystem")
    For Each objItem In colItems
        lngRow = 3
        arrData(lngRow, 1) = "物理メモリ容量 (GB)"
        ' バイト / 1024^3 でGB換算し、小数点以下を四捨五入して1桁にする
        arrData(lngRow, 2) = Round(objItem.TotalPhysicalMemory / (1024 ^ 3), 1) & " GB"
        Exit For
    Next

    ' --- 5. 結果をシートに出力 ---
    With ThisWorkbook.Sheets(1)
        .Range("A1:B1").Value = Array("システム情報項目", "値") ' ヘッダ出力
        .Range("A2").Resize(UBound(arrData, 1), UBound(arrData, 2)).Value = arrData
        .Columns("A:B").AutoFit
    End With

CleanUp:
    ' --- 6. オブジェクトの解放と後処理 ---
    Set objItem = Nothing
    Set colItems = Nothing
    Set objWMIServices = Nothing
    Set objSWLocator = Nothing

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Exit Sub

ErrorHandler:
    MsgBox "WMIアクセス中にエラーが発生しました。" & vbCrLf & _
           "エラーコード: " & Err.Number & vbCrLf & _
           "説明: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

【技術解説】

1. WMI（Windows Management Instrumentation）

WMIは、Windows OSの管理情報を提供するインターフェースであり、CIM (Common Information Model) 標準に基づいています。VBAからWMIにアクセスすることで、OSの深部に格納されているハードウェアや設定情報を安全に取得できます。

2. 遅延バインディング（Late Binding）の採用

コード内で Dim objSWLocator As Object と宣言し、CreateObject("WbemScripting.SWbemLocator") を使用しています。これは、実行時にオブジェクトの型を解決する「遅延バインディング」です。 メリット: 参照設定（Microsoft VBScript Regular Expressionsなど）を必要としないため、どのPC環境でも（ビット数やOfficeバージョンが異なっても）コードがそのまま動作し、配布時のエラーリスクを最小限に抑えられます。

3. WQL (WMI Query Language)

WMIからデータを取得する際は、データベースのSQLに似たWQLを使用します。 例: SELECT Caption, CSDVersion FROM Win32_OperatingSystem これにより、必要なプロパティ（列）のみを選択的に取得できるため、無駄なデータ転送を避け、処理速度の向上に寄与します。

4. 高速なデータ出力

データを取得する際、セル一つずつに書き込むのではなく、arrData という二次元配列に情報を一時的に格納しています。最後に Range.Value = Array によって、メモリからシートへ一括で書き込むことで、ExcelのI/O処理によるオーバーヘッドを大幅に削減し、高速化を実現しています。

【注意点と運用】

1. 落とし穴：アクセス権限（UACとリモート接続）

WMIはシステム管理情報にアクセスするため、標準ユーザーやネットワーク経由でのアクセスには制限がかかる場合があります。

  • 回避策: 基本的にローカルPCの情報取得であれば問題ありませんが、ネットワーク上のPCにアクセスする場合は、接続ユーザーにWMI名前空間への実行権限が必要です。また、UAC（ユーザーアカウント制御）が有効な環境では、管理者権限でOfficeアプリケーションを起動する必要がある場合があります。

2. オブジェクトの解放は必須

WMIオブジェクト（objSWLocator, objWMIServices など）はCOMオブジェクトであり、使用後は必ず Set Object = Nothing で明示的に解放しなければなりません。解放を怠ると、メモリリークやシステムリソースの消費につながり、パフォーマンス低下を引き起こします。（本コードでは CleanUp ラベル内で実行済み）

3. 実行時間の考慮

WMIクエリ自体は非常に高速ですが、同時に大量の情報を何度も問い合わせるとシステムに負荷をかけます。情報取得は必要な時だけに限定し、結果をキャッシュ（保存）して再利用することを推奨します。

【まとめ】

VBAとWMIを組み合わせたシステム情報取得ロジックの運用のコツは以下の3点です。

  1. 参照設定の排除: 遅延バインディング (CreateObject) を徹底し、実行環境に依存しない汎用的なスクリプトとして運用する。

  2. 高速化の徹底: ScreenUpdating の無効化と、取得データを配列に格納してからシートへ一括書き出しを行うことで、UI処理の遅延を回避する。

  3. WQLの最適化: SELECT * ではなく、必要なプロパティのみを抽出するWQLを使用し、ネットワークやシステムへの負荷を最小限に抑える。

ライセンス：本記事のテキスト/コードは特記なき限り CC BY 4.0 です。引用の際は出典URL（本ページ）を明記してください。
利用ポリシー もご参照ください。

コメント

タイトルとURLをコピーしました