WMI Fun !! 〜 WMI に興味がある方・システム管理者は必見です! 〜
 WMI Step|WMI Sample|WMI Reference|WMI Library|Enquete|About WMI Fun !!
 My Let'snote|Personal|Insomnia|Link

WMI Fun !! > WMI Step > WMI ソーステンプレート VBA (Microsoft Excel 2003) 版

このエントリーをはてなブックマークに追加
毎日の仕事のお供におすすめミネラルウォータークリスタルカイザー
電子タバコならやっぱりアイコス ネイビー
気になる車は新車購入支援サイト オートックワンで最短 60 秒で見積もり OK

WMI ソーステンプレート VBA (Microsoft Excel 2003) 版 - WMI Step

Topics

WMIを使っていくうえで役立てば…ということで、WMI を使ったプログラムを書く際に便利な VBA (Microsoft Excel 2003) 版ソーステンプレートを用意しました。

プログラム・スクリプトを組み立てて行く際に、このサンプルファイルを参考にしながらスタートすると雛形として便利に使えるかな・・・と期待しています。



Sample Code

'*** WMI Source Template for VBA (Excel 2003) ***

Option Explicit

Sub GetWMItoExcel()

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet As SWbemObjectSet
Dim oClass As SWbemObject
Dim oLocator As SWbemLocator
Dim oService As SWbemServices
Dim sMesStr As String

'ローカルコンピュータに接続する。
Set oLocator = New WbemScripting.SWbemLocator
Set oService = oLocator.ConnectServer
'Win32_XXX部分を実在するWMIクラス名に変更する。
'クエリー条件をWQLにて指定する。
Set oClassSet = oService.ExecQuery("Select * From Win32_XXX")

'コレクションを解析する。
For Each oClass In oClassSet

'このサンプルではあくまでCaptionプロパティしか見ないが、
'他のプロパティがあればこの部分で書き加える。
sMesStr = sMesStr & oClass.Caption & vbCrLf

Next

'ここではExcelのスプレッドシートへ出力しているがお好みに応じて変更してください。
Worksheets("Sheet1").Cells(8, 1).Value = "このクラスのCaptionプロパティ値の一覧です。"
Worksheets("Sheet1").Cells(9, 1).Value = sMesStr

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

End Sub



Comment

Microsoft Excel 2003 の VBA を使用して作成した WMI プログラミングに便利なテンプレートファイルになります。(この VBA テンプレートは Excel 2003 にて作成しましたが、Excel 2010 や Excel 2016 でも実行可能です。)
「Win32_XXX」の部分を実在する WMI クラス名に置換 (例えば Win32_ComputerSystem や Win32_OperatingSystem、Win32_Processor など) することでプログラムが実行できるようになると思います。
下記のリンクからこのソーステンプレートのファイルをダウンロード出来ます。

WMI Source Template for VBA

次は「WMI ソーステンプレート JS (WSH) 版」です。


ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています
WMI に関して調べているけど探し物が見つからない…という方は Search Result から検索してみましょう!!

MCP (Microsoft Certified Professional)、 MCA (Microsoft Certified Associate)CompTIA A+
一応 MCP (Microsoft Certified Professional)、MCA (Microsoft Certified Associate)、
CompTIA A+ を所有してたりします…

- WMI Fun !! -
http://www.wmifun.net/
Microsoft 社のテクノロジーである WMI (Windows Management Instrumentation) の使い方を
Visual Basic を使ってのんびり公開しています
WMI は Windows 7 や Windows 8、Windows 10 で便利に使えますよ!
また VB や VBA、.Net (VB・C#) などの開発環境以外でも Win32/Win64 API に依存しないので WMIC や
WSH (VBS・JS)・PowerShell などスクリプト言語・コマンドラインから有効に活用が出来ます
Windows ベースの社内 IT システムに関する資産管理、アセットマネジメントや監視業務の効率化、
インベントリ情報収集系システムツール開発に WMI はお勧めです

This website is created by Toh.
Copyright(C) 1997-2016 WMI Fun !! All rights reserved.
WMI Fun !! へのリンクはご自由に…相互リンクに関するお問い合わせはアンケートページからお願いします

∧ ページの先頭へ…