fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
1 K" X# j4 e/ q0 V% x6 x" v<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
: H! L) \, x7 r2 R4 r5 U
! j6 a7 f3 V7 j4 ]* b* U, lvbs脚本版：
Codz:
0 F, X- I/ H, C4 d
7 Z% Z4 J7 y- }/ n6 J8 {. jwith new regexp
7 k: a( w2 G, G& `6 U    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
" H  D, x8 V9 A% bend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
& h. ?+ g3 s% ^; V' G; y! k    f=0
3 w4 [# `1 }( Y  [3 ?$ Z. i3 J* a    for each m in ms
        if m.submatches(1)=ps.handle then
& h  K; s2 O+ i. i/ E* G0 A- ^            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
  z, }7 h. n( L: \) @            wscript.echo " "&amp;m.submatches(0)
; u$ p! D. J0 f" i* |        end if
    next
next


/ ?& Y8 p, M7 Y( d/ t  C照例给出echo版，方便在远程shell中使用。
# J1 L- ?) d) P# f@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
- ~" J' U! R& l. ~@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
  V) F" v2 `8 w! R: L@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
9 A9 j6 G0 x2 _" T3 ^: M@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
  E9 N2 \/ I' x1 _@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

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