vb.net中使用wmi关闭远程计算机上的进程

       最近学习了一点wmi知识,感觉还很好用,只是在结束远程计算机上的程序时花费了一些时间,在网上找了几天资料,发现大多数是用C#写的,要不就是脚本写的,其中有很多代码都把停止服务当做是结束进程,也有很多人只提供结束本地进程的,说是会写这个就很快会写结束远程进程的,可是对于初学者而言有很大的困难,现就我整理出的代码给大家贴出一份,保证能用,源码比较乱,请大家不要打我就行,下面是我的源码:

         Dim num As Integer = L_list.SelectedItems(0).Index '所选行的索引
        Dim path As String = L_list.Items(num).SubItems(2).Text '获取第n+1列num行的单元格的值,本例得到路径
        Dim proc_name As String = L_list.Items(num).SubItems(1).Text '得到程序名称
        Try
            '用来实现启动远程计算机上的程序
            Dim ip As String = DG_show.CurrentRow.Cells("IP").Value.ToString
            Dim conn As New System.Management.ConnectionOptions
            Dim jc As String
            conn.Username = DG_show.CurrentRow.Cells("用户名").Value.ToString
            jc = PulsDes(DG_show.CurrentRow.Cells("密码").Value.ToString, Mkey)
            If jc = "1" Then
                conn.Password = ""
            Else
                conn.Password = jc
            End If
            Dim ms As New System.Management.ManagementScope("//" & ip & "/root/cimv2", conn)
            Try
                ms.Connect()
            Catch ex As Exception
                MessageBox.Show("连接远程主机失败,信息如下:" & ex.Message, "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End Try
            '结束进程
            Dim oq As New ObjectQuery("SELECT * FROM Win32_Process")
            Dim query1 As New ManagementObjectSearcher(ms, oq)
            Dim queryCollection1 As ManagementObjectCollection = query1.Get()
            Dim service As New ManagementObject
            For Each service In queryCollection1
                If service("Name").ToString() = proc_name Then
                    service.InvokeMethod("Terminate", Nothing)
                End If
            Next service
            MessageBox.Show("从远程主机成功结束" & proc_name & "程序。", "结束程序提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try 

其中L_list是一个listview控件,本程序在vs2005中可以运行.DG_show是一个datagridview控件,我用来存用户名,密码和IP地址,PulsDes是自己定义的一个解密函数,用来取得真正的密码.关键部分是下面的代码:

          Dim oq As New ObjectQuery("SELECT * FROM Win32_Process")
            Dim query1 As New ManagementObjectSearcher(ms, oq)
            Dim queryCollection1 As ManagementObjectCollection = query1.Get()
            Dim service As New ManagementObject
            For Each service In queryCollection1
                If service("Name").ToString() = proc_name Then
                    service.InvokeMethod("Terminate", Nothing)
                End If
            Next service
我当时就是卡在这里了,搞了好几天才搞明白,如果不明白,可以给我发邮件:ljzych#163.com,希望大家共同提高