WMI Fun !! 〜 WMI に興味がある方・システム管理者は必見です! 〜 |
|
|
WMI Fun !! > WMI Step > WMI ソーステンプレート VB 6.0 版 |
WMI ソーステンプレート VB 6.0 版 - WMI StepTopics
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 プログラミングに便利なテンプレートになります。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |