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

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

WSH(・∀・)ｽﾚｯﾄﾞ! Part 2 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

400:デフォルトの名無しさん
 07/12/12 23:32:17 
自分の子の親は普通、自分だけど、例外もあるかも

401:デフォルトの名無しさん
 07/12/12 23:36:14 
子供のidは分かるけど自分のidは分からんらしい

402:デフォルトの名無しさん
 07/12/12 23:39:07 
http://scripting.cocolog-nifty.com/blog/2007/01/id_548f.html

403:デフォルトの名無しさん
 07/12/13 00:04:35 
自分探しって大変なんだな

404:デフォルトの名無しさん
 07/12/13 00:04:48 
>>402 
子プロセスを起動してその親プロセスIDを取るのか 
スゲー力技

405:デフォルトの名無しさん
 07/12/13 00:08:44 
>>400 
'子の親(=自分)を調べる方法でgetpid()を作ってるサイトがあったので 
'そちらを参考(丸写しともいう)にして >>302 を改良 
'ttp://www.vector.co.jp/soft/winnt/util/se420729.html 
'ttp://www.vector.co.jp/soft/winnt/util/se383755.html 
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

次ページ