fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

: ]3 G$ T8 e, l0 ^- Wvbs脚本版：
Codz:

1 o# Y' w( L# E5 r4 c. _with new regexp
5 J: f2 \: x  e- _; x+ w! p    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
0 r: ~! H; m' @6 y2 A4 [" S# @    .global=true
) O' B, k2 i/ {, G# [5 C, F    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
: S" e( \. u# c, Z5 d/ kend with
  }- Y( d4 ?: p2 Q: _for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
    for each m in ms
0 ^; I; _# T' F. j7 ^5 S9 e' [        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
            wscript.echo " "&amp;m.submatches(0)
        end if
    next
next

% t1 J; i. e* D" w+ h: q
照例给出echo版，方便在远程shell中使用。
( b& C' l4 h  }6 j) L0 X* |@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
1 Q; N9 z7 ]1 ]# K1 \! k" d) S@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
@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
. r( ?) r1 ^* Z$ O. L4 o& P/ n: Y@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
; J! i1 m) R) B: {' h@cscript //nologo fp.vbs&amp;del fp.vbs</P>

sxjm567

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

kensington

排版好乱