Excel VBA から WMI を使ってみよう - WMI Step

Topics

WMI は VBA を使用することができる各 Office アプリケーションから使用することも出来ます。
このステップでは Microsoft Excel 2003 を例にして Excel から VBA を使い WMI を使用する方法を紹介したいと思います。基本的には VB と同じ使い方です。

Excel ファイルを新規作成し Visual Basic Editor を立ち上げ、標準モジュールを 1 つ追加したら下記のサンプルを入力してみてください。

Sample Code

Sub GetWMItoExcel()

Dim oDiskSet As SWbemObjectSet
Dim oDisk As SWbemObject
Dim oLocator As SWbemLocator
Dim oService As SWbemServices
Dim i As Long

Set oLocator = New WbemScripting.SWbemLocator
Set oService = oLocator.ConnectServer

Set oDiskSet = oService.ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType=3")

Worksheets("Sheet1").Cells(1, 1).Value = "空き容量が10%以下のドライブは、"

i = 1

For Each oDisk In oDiskSet
If (oDisk.FreeSpace / oDisk.Size) < 0.5 Then
Worksheets("Sheet1").Cells(i + 1, 1).Value = oDisk.Name
I = I + 1
End If
Next

Set oDiskSet = Nothing
Set oDisk = Nothing
Set oLocator = Nothing
Set oService = Nothing

End Sub

Comment

それでは実行してみましょう。
実行時にエラーが出る場合は参照設定から Microsoft WMI Scripting V1.2 Library を追加してから実行してみてください。
(OS 環境が Windows 2000 以前の OS で試している場合には「Microsoft WMI Scripting V1.1 Library」かも知れません…。)

今までにも紹介したサンプルと同様 WQL で空き容量が 10% 切っているドライブを表示する条件を記述したサンプルコードですが、Excel のスプレッドシートに結果が表示されるはずです。
VB とまったく同じように扱えますので Excel ベースでシステム構成取得・資産管理系ソフトを作ってみるもの面白いかもしれませんよ。

今回の例では Excel をベースにしましたが、同じようなやり方で Access や Word (実用的かどうかはさて置き…) でも WMI を使うことが出来ると思いますよ。
資産管理・アセット管理を WMI で行うには Access ベースの mdb、accdb の方が効率が良いかもしれません。


WMI Fun !! > WMI Step > Excel VBA から WMI を使ってみよう

WMI Fun !! > WMI Step > Excel VBA から WMI を使ってみよう

Excel VBA から WMI を使ってみよう - WMI Step

Topics

Sample Code

Comment