WMI Win32_Process Terminate Method with Listbox

[Peter Neuburger via .NET 247]

(Type your message here)

--------------------------------
From: Peter Neuburger

Hi Everybody,

I need some help with the WMI Terminate Method.

I have a Listbox where I get all the Process Information using the WMI Win32_process
class, that works fine.

Now I have a Stop Button that should terminate the process when I select it in the listbox
but I don?t really know how to write the Code, cause this don?t really work.

Code example:

Dim proc as ManagementClass("Win32_process")
Dim method() as Object = listbox1.items(listbox1.SelectedIndex), nothing)

try

if listbox1.SelectedIndex = -1 then
MessageBox.show ("Please select a Process")

else

proc.InvokeMethod("Terminate", method)

end if



Any Idea?s ???


thanks

 

[Rob Teixeira [MVP]]

Alternately, you could use the System.Diagnostics.Process class, and call
either CloseMainWindows or Kill.
You can also use the same Process class to return a list of running
processes.

-Rob Teixeira [MVP]

 

[Herfried K. Wagner [MVP]]

I need some help with the WMI Terminate Method.

I have a Listbox where I get all the Process Information using the WMI Win32_process
class, that works fine.

Now I have a Stop Button that should terminate the process when I select it in the listbox
but I don?t really know how to write the Code, cause this don?t really work.

If youi don't get an answer here, you may want to turn to this group:

<URL:

 

[Ken Tucker [MVP]]

Hi,

Add a reference to system.management.dll. This will start notepad list all
the processes and owners and kill notepad when it finds it on the list.

Process.Start("notepad")
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject

moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_Process")

moReturn = moSearch.Get
For Each mo In moReturn
Dim args(2) As String
mo.InvokeMethod("GetOwner", args)
Dim strOut As String
strOut = String.Format("{0} - Owner {1}",
mo("Caption").ToString, args(0))
Trace.WriteLine(strOut)
If mo("Caption").ToString = "notepad.exe" Then
Dim objTerm(2) As Object
mo.InvokeMethod("Terminate", objTerm)
End If
Next

Ken