Matar proceso vbs

[Isótopo]

Hola. ¿Cual es el codigo para matar un proceso en vbs? Si puede ser, sin usar la consola (tskill o similares). Esque no me acuerdo del code y lo e mirado por todos lados pero no lo encuentro. Gracias.

[Novlucker]

Buenas...
Más o menos así 

Código (vb) [Seleccionar] Expandir

set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
'Obtienes acceso a los procesos
For each process in taskmgr

If Lcase(process.name) = "notepad.exe" then
Process.terminate
End If

Next

Saludos 

[Isótopo]

Muchas gracias por responder pero la verdad no entiendo mucho el code. Creo que exportas los procesos y luego compruebas si esta uno determinado para terminarlo. No habria algo en visual basic script similar a esto:

tskill notepad


Edit: ademas tu codigo no me funciona

[Novlucker]

Lo similar en vbs es eso  ,el código primero accede a la lista de procesos, luego verifica que el nombre del proceso sea notepad.exe (en este caso), y si coincide lo mata.

Edit: ademas tu codigo no me funciona

Tienes abierto un bloc de notas? sino no va a funcionar, yo lo acabo de probar 
Por si el ejecutable de tu NOTEPAD esta en maýusculas, he agregado un pequeño detalle en el code 

[Isótopo]

Si ok me funciona, se me olvido ponerle la extension (costumbre de usar el tskill xd). Bueno, ahora el problema es otro xd... ¿como lo puedo integrar con este code?

Do

'matar el proceso ejemplo.exe en el caso que exista

set objshell = createobject("wscript.shell")
objshell.run "%systemroot%\System32\ejemplo.exe"
wscript.sleep 20000
Do Loop Until Variable = True


Mi idea es que antes de ejecutar la aplicacion mate el proceso si existe. Es un bucle infinito.

[Novlucker]

Simplemente lo agregas, solo tienes que cambiar el ejecutable y como mucho agregar un IF para continuar