fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
1 E  n% ^9 {0 I3 j9 K! v- \
vbs脚本版：
. k+ F7 X% e' }6 s3 m" TCodz:

- u1 G' L; l5 i. C( B& I+ J6 lwith new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
# x( e, w5 ^6 n% G    .global=true
4 ~" j: B5 E/ D9 A* w. ]4 p    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
/ |8 E" f/ U! u  r& E/ rend with
# S& d% t+ t* u2 u3 G2 kfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
" l$ y" o8 {( u1 O" r    for each m in ms
        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
- E$ \! y4 k. |3 y  Z            wscript.echo " "&amp;m.submatches(0)
" x5 {" c( }9 C* [        end if
    next
next
, {7 A% t# m2 d5 }: K  J$ {" t; T& Z
2 _- A1 G5 z, C& V3 `0 p
照例给出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
* m5 x6 N9 t7 V# C7 `@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
6 x9 K: l% q  b4 {@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
# Q8 i8 _3 ^7 C" ~2 S! t@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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