fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
: b$ Q4 O; B" P<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
/ m9 `$ g% {# C" B
& f: W9 d$ C5 X# y6 Pvbs脚本版：
) ~) Q: g" A: M& `Codz:
- Y3 i* V. `. h6 f6 ~
) a5 Z# D6 `  ?5 x9 S, _with 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)
  a$ F6 F9 P+ [/ T- Iend with
6 {+ B8 ^6 b- b  Tfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
& Q9 E" K  @' t4 \  Y# U) B% N7 v  k    f=0
. O; l7 u2 z+ l    for each m in ms
! x+ T3 p$ \/ k, v1 l& g* t        if m.submatches(1)=ps.handle then
8 }" l0 T& v9 Q/ k+ G0 {. ]            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
5 m5 D+ G5 `# _            wscript.echo " "&amp;m.submatches(0)
        end if
    next
next
3 N" Y! Q) W9 |, _1 I5 H. Q

$ T( U+ D$ S# o, D照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
- z/ m6 d3 R& g@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
' g1 G* L; E$ E. K6 f@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
/ A/ B' B6 a9 F) K6 y7 {0 h@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
4 ?) B! S/ C4 c@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
3 V, B% o6 F1 S' d$ ^@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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