'Beispiel: VB .Net - WMI - Bekannten Prozess schliessen - 2 ' Option Explicit On Option Strict On Imports System.Management Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .CenterToScreen() If Me.ListBox1.Items.Count > 0 Then Me.ListBox1.Items.Clear() Dim hProcess As Process For Each hProcess In Process.GetProcesses Me.InitProcessList(hProcess.Id.ToString() & Convert.ToChar(9) & hProcess.ProcessName()) Next End With End Sub Delegate Sub InitProcess(ByVal items As String) Private Sub InitProcessList(ByVal items As String) With Me.ListBox1 If .InvokeRequired Then .Invoke(New InitProcess(AddressOf InitProcessList), New Object() {items}) Else .Items.Add(items) End If End With End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click If Me.ListBox1.SelectedIndex > -1 Then Dim ProcessId() As String = Me.ListBox1.SelectedItem.ToString().Split(Chr(9)) Me.Text = ProcessId(0) Dim Result As String = Me.KillProcessWithWMI(".", ProcessId(0).Trim()) MessageBox.Show(Result, "Info") Call Form1_Load(Nothing, Nothing) Else MessageBox.Show("Erforderlicher Parameter wurde nicht gefunden...", "Info") End If End Sub Private Function KillProcessWithWMI(ByVal ComputerName As String, ByVal Process As String) As String Dim query As String = "Select * from Win32_Process Where Handle = '" Dim mos As ManagementObjectSearcher Dim moo As New ManagementOperationObserver Dim mo As ManagementObject mos = New ManagementObjectSearcher(query & Process & "'") mos.Scope = New ManagementScope("\\" & ComputerName & "\root\cimv2") If mos.Get.Count = 0 Then Return Process & " wurde auf " & ComputerName & " nicht gefunden" Else For Each mo In mos.Get mo.InvokeMethod(moo, "Terminate", Nothing) Next Return "Ausgewaehlter Prozess wurde beendet" End If Return String.Empty End Function End Class