fermer le process

J'ai récupéré un code dans la FAQ Vbscript
qui permet de tuer un process en 1 click, j'ai essayez de l'adapter en utilisant un texte écris dans une fenêtre.
Je suis désolé si je ne suis pas clair mais je suis débutant.
Voila le code qui ne fonctionne pas
Pouvez vous me dire ce qui ne va pas?
à part que je suis nul :mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ProGram = InputBox("Taper le nom du Programme à fermer ","Choix du Prog"," ",Prompt) strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")   Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'Program'")   For Each objProcess in colProcessList objProcess.Terminate() Next

---

Ta variable programme ne doit pas être entre les guillemets :

Code:

---

1 2	Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = '" & Program & "'")

---

merci ça afonctionne parfaitement:resolu:
j'ai fait un ajout pour ne pas avoir à taper le .exe

Code:

---

1 2 3

Extension =".EXE" Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = '" & Program & Extension &"'"

---