Discussion :

[noahline]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pitchalov]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[noahline]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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