How to get the path where a process executed from?

[xManh]

Is it possible to get path of a process, for example, getting path of explorer.exe returns C:\Windows\explorer.exe

Thanks for any comment

[xcal]

Originally pilfered from gafrost, modified slightly by me.

$dir = _GetPIDPath('your.exe')

MsgBox(0, '', $dir)

Func _GetPIDPath($exe)
    $pid = ProcessExists($exe)
    $objWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
    $colItems = $objWMIService.ExecQuery ('SELECT * FROM Win32_Process WHERE ProcessId = ' & $pid, 'WQL', 0x10 + 0x20)
    For $objItem In $colItems
        If $objItem.ExecutablePath Then Return $objItem.ExecutablePath
    Next
EndFunc

edit - because I edit everything at least once.

Edited November 23, 2006 by xcal

[theguy0000]

Originally pilfered from gafrost, modified slightly by me.

$dir = _GetPIDPath('your.exe')

MsgBox(0, '', $dir)

Func _GetPIDPath($exe)
    $pid = ProcessExists($exe)
    $objWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
    $colItems = $objWMIService.ExecQuery ('SELECT * FROM Win32_Process WHERE ProcessId = ' & $pid, 'WQL', 0x10 + 0x20)
    For $objItem In $colItems
        If $objItem.ExecutablePath Then Return $objItem.ExecutablePath
    Next
EndFunc

edit - because I edit everything at least once.

that's cool....

[xManh]

Yeah, that's what i'm seeking for, thankyou very much!

[Valuater]

might want to error check after this line

$pid = ProcessExists($exe)

object errors can crash the program

8)

[xManh]

Nice advice, thanks!