07/12/13 00:08:44
>>400
'子の親(=自分)を調べる方法でgetpid()を作ってるサイトがあったので
'そちらを参考(丸写しともいう)にして >>302 を改良
'URLﾘﾝｸ(www.vector.co.jp)
'URLﾘﾝｸ(www.vector.co.jp)
set swl = wscript.createobject("wbemscripting.swbemlocator")
set s = swl.connectserver
set rs = s.execquery("select * from win32_process where processid=" & getpid())
for each r in rs
wscript.echo r.caption
p = r.parentprocessid
set prs = s.execquery("select * from win32_process where processid=" & p)
for each g in prs
wscript.echo g.caption
next
next
function getpid()
set ws = createobject("wscript.shell")
set e = ws.exec("mshta.exe -")
p = e.processid
set o = getobject("winmgmts:root\cimv2")
set ps = o.execquery("select * from win32_process where processid=" & p)
if ps.count <> 1 then
e.terminate
err.raise 9
end if
for each p in ps
getpid=p.parentprocessid
next
e.terminate
end function