Function GetObjectValue(ByVal strProperty1) Dim strObject As String = "C:\Temp\ASERVICE.EDM" Dim process = GetObject("winmgmts://./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) heap_txt.Text = StrHeaps For i = 0 To StrHeaps Step +1 inParameters.Index = i inParameters.Property = strProperty1 outParameters = process.ExecMethod_("GetValue", inParameters) Dim Value1 As String = outParameters.Value ListView1.Items.Add(Value1) Next End Function
For i = 0 To StrHeaps Step +1
StrHeaps-1
For i = 0 To StrHeaps-1
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)