Comment faire pour fermer une tache automatiquement

[Heesh]

Bonjour,

 

je m'explique, je veux fermer une application lancé par Windows, et ceci automatiquement via un batch ou via le planificateur automatique.

 

Disons que dans le Gestionnaire des Tâches, le nom de l'image du logiciel est "monprogramme.exe".

 

Je veux que le programme soit fermé sans temps d'attente, par exemple voulez-vous mettre fîn à la tâche?

 

Merci d'avance de votre aide.

[Heesh]

On m'a dit de lancer la tache via le planificateur de tache et dire qu'elle s'arrete 24h après puis après se relancer.

 

Je doute de la fiabilité de cela. Y'a t'il quelqu'un qui a une autre solution?

 

Merci d'avance de votre aide.

[pmariett]

Y'a t'il quelqu'un qui a une autre solution?

Merci d'avance de votre aide.

 

Salut,

 

Je cherche un peu la même chose, mais pour un systeme NT4. Si dans ton cas c'est pour XP, utilises la commande "taskkill".

 

bon courage.

[pitsensas]

Salut,

 

Copier-coller le code ci-dessous dans un fichier texte que tu renommeras en Kill.vbs

If Wscript.Arguments.Count < 2 Then 
  Wscript.Echo "Utilisation incorrecte de VBSProcess.vbs" 
  Wscript.Echo "Utilisation: cscript.exe %CD%\VBSProcess.vbs /Voir null ou /Terminer <tache.exe>" 
  Wscript.Quit(1) 
End If 

Dim arg1, arg2 
arg1 = Wscript.Arguments.Item(0) 
arg2 = Wscript.Arguments.Item(1) 
If arg1 = "/Voir" Then 
  call voirprocess() 
ElseIf arg1 = "/Terminer" Then 
  Call tuerprocess(arg2) 
Else 
  Wscript.Echo "Aucun argument correcte." 
  Wscript.Echo "Pour connaitre la syntaxe: cscript.exe %CD%\VBSProcess.vbs" 
  Wscript.Quit(1)		
End If 

Private Sub voirprocess() 
  Dim strComputer, objWMIService, colProcessList 
  strComputer = "." 
  Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
  Set colProcessList = objWMIService.ExecQuery _ 
("Select * from Win32_Process") 
  For Each objProcess in colProcessList 
Wscript.Echo "Processus: " & objProcess.Name 
  Next 
  Set colProcessList = Nothing 
  Set objWMIService = Nothing 
End Sub 

Private Function tuerprocess(nom) 
			Dim strComputer, objWMIService,colProcessList 
  strComputer = "." 
  Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
  Set colProcessList = objWMIService.ExecQuery _ 
("Select * from Win32_Process Where Name = '" & nom & "'") 
  For Each objProcess in colProcessList 
objProcess.Terminate() 
  Next 
			Set colProcessList = Nothing 
  Set objWMIService = Nothing 
  If Err.Number <> 0 Then 
  Wscript.Echo "Impossible de terminer le processus: " & nom 
  Wscript.Echo "Vérifié que vous avez les autorisations néccéssaire." 
  Wscript.Quit(-1) 
  Err.Clear 
  End If 
End Function

 

Ensuite copier-coller le code ci-dessous dans un fichier texte que tu renommeras xxxx.bat

%windir%\System32\cscript.exe "C:\Temp\kill.vbs" /Terminer monprogramme.exe

PS: Bien-sûr, dans le code pour le fichier xxxxx.bat, il faut modifier le chemin d'accès à ton fichier Kill.vbs

 

Ensuite, si tu executes le fichier xxxxx.bat alors monprogramme.exe se ferme (la tâche est "tuée").

 

A+

Modifié le 17 novembre 2005 par pitsensas