20 июл. 2011 г.

vb.net kill process by process name and user name

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

Комментариев нет:

Отправить комментарий