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

亦凉 2022-09-29 05:21 100阅读 0赞

最近学习了一点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()  
       &nb

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