fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
7 F2 b' l. M. \( k) `<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

vbs脚本版：
Codz:
# f8 D/ B* e* P* I1 U
with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
! H7 q3 U0 r, ]% N. u$ O" r$ e( [    .global=true
" f9 u& ^" d1 M3 u  d/ g    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
. y$ S0 s& b6 Q" e    f=0
    for each m in ms
        if m.submatches(1)=ps.handle then
) \; y4 [' L( k* O5 S            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
! T( ^2 V& r" l) }  b* ]            wscript.echo " "&amp;m.submatches(0)
9 D0 _! v' G. ~; d        end if
9 @1 E1 ?0 g. i/ z    next
% c" L7 }3 z. z4 J  rnext
$ f$ g1 b- [3 T, M( x8 N

照例给出echo版，方便在远程shell中使用。
7 n* O( ~$ B' E4 @: d8 Q7 R4 S0 \@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
2 m' ]9 z; A: s3 i4 u@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
3 y3 h5 d) j% I0 C@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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