processname is case sensitive
code:
Sub Main()
Dim userName As String = "UserName"
Dim ProcessName As String = "ProcessName"
Dim obj As New System.Management.ManagementClass("Win32_Process")
Dim processes As System.Management.ManagementObjectCollection
processes = obj.GetInstances()
For Each process As Management.ManagementObject In processes
Dim info(2) As String
process.InvokeMethod("GetOwner", info)
Try
If info(0) = userName And process.GetPropertyValue("Name") = ProcessName Then
process.InvokeMethod("Terminate", Nothing)
End If
Catch ex As Exception
End Try
Next
End Sub
Комментариев нет:
Отправить комментарий