fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
- y" X" e4 d! x<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
0 J& k9 g, ^/ ~6 v4 K( T
vbs脚本版：
% j- W8 W, |0 p8 _8 SCodz:

" u, d1 Q. ?( W6 ^" kwith new regexp
: s2 F; @9 M3 t$ B    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
$ u3 U, |: Z; p. V1 h& Wend with
* [& j% i3 V; Hfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
    for each m in ms
: ]$ D* o4 Y' g3 H" t: @+ f+ z        if m.submatches(1)=ps.handle then
0 o' V2 C  A2 K4 o4 c            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)
# ^) A  p% a) m( O0 ^! @        end if
  r4 v! B. z9 z3 h5 F* G# G    next
next
* I$ _& a: i6 ~

照例给出echo版，方便在远程shell中使用。
/ Y' \( D4 J5 C@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
3 a6 E2 r  b; O* p; `2 p: J@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
% g  H) t4 K' E2 c4 a! M1 f1 h@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
@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

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