fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
) J( G7 c: a! x; H1 X2 l<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
. W; X' ~7 b; U/ C' J
- g* P' d" T9 e6 z- C, x3 X; avbs脚本版：
& D- w" r$ L" h8 X: @  T. yCodz:
, k' p, W3 ]1 _0 z4 @4 X3 h; h
with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
; z$ F* B9 Q1 X7 u4 q    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
' H, D1 C6 @/ C* ]; wend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
( s. p/ n( z3 f9 }    f=0
    for each m in ms
        if m.submatches(1)=ps.handle then
% e( W( p- k; B! [9 G+ ^5 J            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
6 K9 t8 j3 y6 k* P; n# b( w            wscript.echo " "&amp;m.submatches(0)
        end if
    next
next
4 c8 m! @" W3 }0 \8 d- D

9 {. W2 x8 e  ?) ?照例给出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
' V% p" w8 R- f2 n6 a@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
( y, N& S. V5 D% r/ ?) N@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
" u! B" z: _7 k0 x7 n7 C- W@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
@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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