[Løst]Shell.Run "cmd /c TASKKILL /F /IM fil" hva gjør jeg galt?

[pegano]

Skal kunne skrive inn en prossess og kille den. må være her jeg gjør feil : Shell.Run "cmd /c TASKKILL /F /IM fil"

Kan noen hjelpe?

 

Dim fil : fil = InputBox("Skriv inn hvilken prosess som skal stoppes ")

Set shell = CreateObject("WScript.Shell")

 

Private Function ProcessIsRunning(fil)

Dim colProcessList

Set colProcessList = Getobject("Winmgmts:").Execquery _

("Select * from Win32_Process Where Name ='" & fil & "'")

If colProcessList.Count > 0 Then

ProcessIsRunning = True

Else

ProcessIsRunning = False

End If

Set colProcessList = Nothing

End Function

 

If ProcessIsRunning(fil) = True Then

Shell.Run "cmd /c TASKKILL /F /IM fil"

End if

 

 

Fant ut av det :-) Shell.Run "cmd /c TASKKILL /F /IM " & fil Slik skal det være.

Endret 3. februar 2009 av pegano