fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
6 U& p% k2 B: Y1 ]8 g* h<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
0 f% {- Z' W# j+ E0 l
vbs脚本版：
) O% G: C# O1 Z' tCodz:
' P4 ^$ p& q% F
  ]" j$ \9 W' U' Z/ \2 Uwith new regexp
8 E. J4 h9 l/ G1 P, S; t    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
+ v8 \: `  \+ }    .global=true
4 ?  K" \9 V: l- V4 W' r# D4 k    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
+ u+ _+ j5 K& |& N1 n  @end with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
" A0 _3 E6 I% U# v* {5 ]0 Y    f=0
    for each m in ms
        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)
% w8 y& z( C( J7 @/ P  f3 k8 b        end if
- \& p3 Q! D$ s1 W. `* |# l& g7 H% |    next
, W+ Q" J5 ?: R4 L+ B' h) wnext
, s( ?4 u  f, M9 T: p
0 S/ ~" ?6 Z# m9 n( f# P0 q. m( B& k# `
  L& O! @! G- S2 ~, P照例给出echo版，方便在远程shell中使用。
@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
@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
" {9 t% C2 b) U1 @: d! e. T@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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