fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
# l+ i8 Z! g  @/ h7 H/ h<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

vbs脚本版：
+ x" }. a) t7 Q" I9 `- S3 a- iCodz:

  \/ ^+ |5 m+ F% E" dwith new regexp
, A0 ?  q7 Z! O: y5 A8 x    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
) f- V( Z6 L: F- Z6 Y& R8 hend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
. L- o+ M4 A  ]( k- F1 h    f=0
    for each m in ms
        if m.submatches(1)=ps.handle then
, Y1 y( z8 h& Y  A/ s3 D            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
next

; W: `) e) j8 y
照例给出echo版，方便在远程shell中使用。
, U  Z0 V, k# G: k@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
4 N% v8 y" g$ v0 n3 B@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
& f$ `7 G4 Z2 K6 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
. n3 j: l: T7 _; e( @, L! x1 n8 A@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
4 B% i5 G! z7 P# r* K$ Q5 n5 P9 ?@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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