fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
" u; e0 E  }# w1 G9 g# B<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

! A5 @" L7 U7 Svbs脚本版：
Codz:

with new regexp
$ r8 s5 h0 A: a* p5 E    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
( S4 N6 @3 V" c; X    .global=true
( e9 H% a+ S! e: O    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
# q: b! k6 A. x; s9 ?for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
4 m' ?, M, U$ ], e4 Y    f=0
. `+ J4 m& z! A    for each m in ms
7 ?% h) T& P" ^7 H3 ^" x& [        if m.submatches(1)=ps.handle then
4 Y* C% l! N4 q$ k/ M1 I            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
3 U" a# C- e) _* V7 F( C- ]3 T, u* w* F            wscript.echo " "&amp;m.submatches(0)
        end if
3 z( F, D9 U# S3 `0 [    next
7 `3 z0 ^/ R# h  ynext


! a3 X( L2 N4 \. u照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
/ F* U( ^% l  w  D4 {" l: d@echo if f=0 then f=1:wscript.echo "&gt;"^&amp;ps.handle^&amp;vbtab^&amp;ps.name^&amp;vbtab^&amp;ps.executablepath:end if:_&gt;&gt;fp.vbs
@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
, N5 b5 k* j4 H' l1 l@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

众里寻他千百度，蓦然回首在这里！