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 ソーステンプレート VB 6.0 版

このエントリーをはてなブックマークに追加
ATM 利用時の入出金手数料が最大 7 回/月無料、楽天銀行
WMI スクリプトの実行結果を VBS を利用してメールで送信する方法を公開しています
パソコンに負荷のかからないウィルス対策なら ESET パーソナル セキュリティ

WMI ソーステンプレート VB 6.0 版 - WMI Step

Topics

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

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



Sample Code

'*** WMI Source Template for VB6 ***

Option Explicit

Private Sub Command1_Click()

'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

'ここではMsgBoxで画面出力しているがお好みに応じて変更してください。
MsgBox "このクラスのCaptionプロパティ値の一覧です。" & vbCrLf & _
vbCrLf & sMesStr

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

End Sub



Comment

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

WMI Source Template for VB6

次は「WMI ソーステンプレート VBS (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 !! へのリンクはご自由に…相互リンクに関するお問い合わせはアンケートページからお願いします

∧ ページの先頭へ…