WSH(・∀・)ｽﾚｯﾄﾞ! Part 2

WSH(・∀・)ｽﾚｯﾄﾞ! Part 2 at TECH

405:デフォルトの名無しさん
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

次ページ

続きを表示

1を表示