alias mircpaths {
if ($version < 6.16) return
var %loc = loc $+ $ticks, %wmi = wmi $+ $ticks, %col = col $+ $ticks
.comopen %loc WbemScripting.SWbemLocator
if (!$comerr) .comclose %loc $com(%loc,ConnectServer,1,dispatch* %wmi)
if ($com(%wmi)) .comclose %wmi $com(%wmi,ExecQuery,1,bstr*,SELECT $&
executablepath FROM Win32_Process WHERE Name = "mirc.exe",dispatch* %col)
if (!$com(%col)) return
if ($hget(mircpaths)) hdel -w mircpaths *
var %i = 1
while ($comval(%col,%i,executablepath)) {
hadd -m mircpaths %i $v1
inc %i
}
.comclose %col
}