fport.vbs for XP/2003

韩冰

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

6 ?5 }+ U3 h& ?$ ^vbs脚本版：
( x6 U# o& |# e' F" ~2 {, B" u' aCodz:
: p5 Q7 v4 {+ W! Y# D4 f! }" j2 k
( i- D, N- i" s) {. L: J- }with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
0 _/ A+ Z# C: S$ f/ j  j    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
5 x1 J9 L: ~8 ]4 C8 k" hend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
    for each m in ms
# ~8 e0 T0 @$ V2 n        if m.submatches(1)=ps.handle then
5 \9 Y; ?, r$ Q7 j* `; H3 T            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
* J" _$ ~5 Y: [7 V8 }; g            wscript.echo " "&amp;m.submatches(0)
' i7 y2 v, e8 n  ^, E! ~, x, H        end if
    next
) k/ {' }# |* G- C) C5 D9 `4 cnext

" t7 C! m* [. w/ _# N3 z# C7 e3 L
1 @" j) }6 i1 K# c, v照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
& f6 J% @4 a/ E, g@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
1 y8 d/ e% }$ W4 `; x4 z@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
& F6 n3 F8 q& @( f  p@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
3 F0 t' R/ n: o8 D5 b@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
$ s) R2 F" V# J. c@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
, e8 l0 K% b  b; p# a- ^8 X@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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