.Net Create Process with System.Management

[attsifte]

Καλησπέρα,

 

Σε VB.Net έχω μια sub για να τερματίζω προγράμματα απο συγκεκριμένους υπολογιστές στο δίκτυο. Με την ίδια sub θα ήθελα και την δημιουργία αντίστοιχα. Όμως στο create κολλάω λίγο.

 

Έστω η παρακάτω sub:

 

>
Dim myConnectionOptions As New System.Management.ConnectionOptions
       With myConnectionOptions
           If UCase(sComputer) <> UCase(System.Net.Dns.GetHostName) Then
               .Username = "domain\username"
               .Password = "password" 
           End If
           .Impersonation = System.Management.ImpersonationLevel.Impersonate
           .Authentication = System.Management.AuthenticationLevel.Packet
       End With

       Dim scope As New System.Management.ManagementScope
       Try
           scope = New System.Management.ManagementScope("\\" & sComputer & "\root\cimv2", myConnectionOptions)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

       Try
           If status = "Create" Then


           ElseIf status = "Terminate" Then

               Dim query As ObjectQuery = New ObjectQuery("Select * from Win32_Process Where Name Like '" & sName & "'")

               Dim s As New ManagementObjectSearcher(scope, query)

               For Each service As ManagementObject In s.Get()
                   Dim args() As Object
                   Dim strReturn As String = service.InvokeMethod(status, args).ToString
               Next

           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

 

Thanks.