fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
8 z" ?4 c5 n! c3 p5 u+ S) u
vbs脚本版：
Codz:

" S; }# P; o) h/ V$ awith new regexp
    .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  h5 [* D# V" N, K% @end with
. B, V: w4 A& Q, c# Jfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
    for each m in ms
        if m.submatches(1)=ps.handle then
4 W: A  N* E$ S( Q            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)
        end if
    next
. B& S0 l% c1 D; |7 z4 R1 }next

3 s% Q/ u+ g/ P4 s
9 r2 v  v: H6 _1 W7 R照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
3 ^% @5 G+ X/ ^/ I# S- ]@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
) w4 c) H8 t9 ~3 C& C, O7 W- d* D@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
  m* D+ G, ?. E. y, Y. v@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
  ^2 X5 e8 S2 [@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
. T$ ^% k* M6 \4 A2 v@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
@cscript //nologo fp.vbs&amp;del fp.vbs</P>

sxjm567

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

kensington

排版好乱