Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strComputer As String = TextBox1.Text objsh = CreateObject("WScript.Shell") ''# Get the Novadigm system folder StrSystemDir = GetIdm("system") ''# Use ASERVICE.EDM to read strObject = StrSystemDir & "Lib\SYSTEM\RADIA\SOFTSRVC\ASERVICE.EDM" Dim process = GetObject("winmgmts://zachary/root/novadigm:NVD_Agent") Dim method = process.Methods_("GetValue") Dim inParameters = method.inParameters.SpawnInstance_() inParameters.Path = strObject Dim outParameters = process.ExecMethod_("NumberOfInstances", inParameters) Dim StrHeaps = (outParameters.InstanceCount) num_TextBox.Text = StrHeaps For i = 0 To StrHeaps Step +1 inParameters.Index = i inParameters.Property = "ZOBJNAME" outParameters = process.ExecMethod_("GetValue", inParameters) Dim Value1 As String = outParameters.Value inParameters.Property = "ZAVIS" outParameters = process.ExecMethod_("GetValue", inParameters) Dim Value2 As String = outParameters.Value ListView1.Items.Add(Value1).SubItems.Add(Value2) Next End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)