Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

Sub Constructor() // required for Windows 8.1 or later Call WindowsWMIMBS.InitSecurity(False) End Sub

End Class

Class Window1 Inherits Window

EventHandler Sub Open() if TargetWin32 then w=new WindowsWMIMBS if w.ConnectServer("root\"+PopupMenu2.text) then 'MsgBox "Connected" else MsgBox "ConnectServer: fail"+EndOfLine+"Lasterror: "+str(w.Lasterror) end if else MsgBox "This example is for Windows only." end if End EventHandler

Function St(v as Variant) As string if v.IsArray then dim s() as string = v Return Join(s,", ") end if Return v.StringValue Exception t as TypeMismatchException // ignore End Function

Sub run() list.DeleteAllRows if w.query("WQL",query.text) then 'MsgBox "query: ok" while w.NextItem dim s(-1) as string = w.GetNames for each t as string in s List.AddRow t List.Cell(List.LastIndex,1)=st(w.GetProperty(t)) List.Cell(List.LastIndex,2)=hex(w.GetPropertyType(t))+" "+w.GetPropertyTypeString(t) next wend else MsgBox "query: fail"+EndOfLine+"Lasterror: "+str(w.Lasterror) end if End Sub

Property w As WindowsWMIMBS

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&File"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "Select &All"

End MenuBar