WMI Fun !! 〜 WMI に興味がある方・システム管理者は必見です! 〜 |
|
|
WMI Fun !! > WMI Step > WMI ソーステンプレート VBS (WSH) 版 |
WMI ソーステンプレート VBS (WSH) 版 - WMI StepTopics
WMIを使っていくうえで役立てば…ということで、WMI を使ったプログラムを書く際に便利な VBScript (WSH) 版ソーステンプレートを用意しました。
Sample Code
'*** WMI Source Template for VBScript(WSH) ***
'*** Create by Toh. *** Option Explicit 'WMIにて使用する各種オブジェクトを定義・生成する。 Dim oClassSet Dim oClass Dim oLocator Dim oService Dim sMesStr 'ローカルコンピュータに接続する。 Set oLocator = WScript.CreateObject("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
![]() Comment
VBScript (WSH) を使用して作成した WMI プログラミングに便利なテンプレートファイルになります。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |