90 lines
2.4 KiB
Plaintext
90 lines
2.4 KiB
Plaintext
' Copyright (c) 1997-1999 Microsoft Corporation
|
|
VERSION 5.00
|
|
Begin VB.Form Main
|
|
Caption = "WMI Client"
|
|
ClientHeight = 2940
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 5670
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 2940
|
|
ScaleWidth = 5670
|
|
StartUpPosition = 3 'Windows Default
|
|
Begin VB.ListBox ClassList
|
|
Height = 1620
|
|
Left = 240
|
|
TabIndex = 1
|
|
Top = 360
|
|
Width = 5175
|
|
End
|
|
Begin VB.CommandButton DoTest
|
|
Caption = "DoTest"
|
|
Height = 615
|
|
Left = 2040
|
|
TabIndex = 0
|
|
Top = 2160
|
|
Width = 1455
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "WMI Classes:"
|
|
Height = 255
|
|
Left = 240
|
|
TabIndex = 2
|
|
Top = 120
|
|
Width = 2415
|
|
End
|
|
End
|
|
Attribute VB_Name = "Main"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Dim DefaultNS As ISWbemServices
|
|
|
|
Private Sub ClassList_Click()
|
|
Dim Name As String
|
|
Name = ClassList.List(ClassList.ListIndex)
|
|
Dim Class As ISWbemObject
|
|
|
|
Set Class = DefaultNS.Get(Name)
|
|
|
|
Dim test As String
|
|
test = Class.GetObjectText
|
|
|
|
MsgBox test
|
|
|
|
End Sub
|
|
|
|
' This is the main test routine. It connects to the WMI database, adds a few
|
|
' classes and instances and then displays the class list
|
|
|
|
Private Sub DoTest_Click()
|
|
|
|
Dim Locator As SWbemLocator
|
|
|
|
ClassList.Clear
|
|
|
|
' Connect to the WMI database. Note that the default namespace is used.
|
|
|
|
Set DefaultNS = GetObject("cim:root\default")
|
|
|
|
' Add new classes and instances to the database. This adds to whatever is already in the database.
|
|
|
|
CreateClassesAndInstances DefaultNS
|
|
|
|
' Get an object and print the properties to VB's immediate window. Note
|
|
' that this gets a class object, but could just as easily get an instance
|
|
' object by using a different path.
|
|
' The immediate window is visible when running the debugger.
|
|
Dim ClassObj As ISWbemObject
|
|
Set ClassObj = DefaultNS.Get("__win32provider")
|
|
|
|
DumpClassOrInstanceObject ClassObj
|
|
|
|
' List all the classes in the default namespace
|
|
|
|
ListClassObjects DefaultNS
|
|
|
|
End Sub
|
|
|