set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
proceso = "mspaint.exe"
for each process in taskmgr
	if process.name = proceso then
		msgbox process.executablepath
	end if
next

var taskmgr = GetObject('winmgmts:{impersonationLevel=impersonate}').ExecQuery ('select * from Win32_Process');
var proceso = "mspaint.exe";
process = new Enumerator(taskmgr);
for (; !process.atEnd(); process.moveNext()){
	if (process.item().name == proceso){
		WScript.echo(process.item().executablepath);
	}
}