1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Else If program_Flag=3 Then
Tableau=split(program_full_name,"\")
Etat_du_processus = FALSE
For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
If UCase(Process.Name) = UCase(Tableau(UBound(Tableau))) Then
Etat_du_processus = TRUE
Exit For
End If
Next
If Etat_du_processus = TRUE Then
Tableau=split(program_full_name,"\")
StrComputer = "."
Set objet_WMI_service = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
Set objet_liste_processus = objet_WMI_service.ExecQuery ("Select * from Win32_Process Where Name = '" & Tableau(UBound(Tableau)) & "'")
For Each objet_processus In objet_liste_processus
objet_processus.Terminate()
Next
Else
objet_shell.Run program_full_name & chr(32) & program_arguments, 1, TRUE
End If
End If |