fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
: k4 p2 Y  r+ J$ Z<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

vbs脚本版：
4 S4 u) v$ r5 MCodz:
; h/ x* X* I& S
with new regexp
: |' Y" `9 H8 p( Y+ l% i    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
% M" a+ [0 |# N2 C- Z0 Dend with
" f, e* w+ }3 Ufor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
* l/ e6 I6 }4 E6 ^- P. t7 h% ~! I. I1 r$ z    for each m in ms
" N, b, f0 P$ z. u5 K7 V        if m.submatches(1)=ps.handle then
            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
            wscript.echo " "&amp;m.submatches(0)
0 {$ j( A8 J7 j- M% X        end if
, l% u6 s0 m: H$ e4 ]    next
7 c7 ~+ L1 M* o  V' Dnext
2 J3 J# `3 |0 i5 C5 v
* Y. }0 T& M3 i% f% p+ E
照例给出echo版，方便在远程shell中使用。
3 G# c+ G; Y1 h' ~# W) l@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
* X3 u5 q4 x, A@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
9 B+ e. d% H& ~  }9 U( E6 |& Q7 S@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
@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
- O1 b' ^/ L% \) Q. O) V@cscript //nologo fp.vbs&amp;del fp.vbs</P>

sxjm567

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

kensington

排版好乱