fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
" v- Z1 z8 r' n# I4 c5 ?5 O  R6 F
4 i  S/ g. b. n- ^- _1 p& ]- ?" uvbs脚本版：
. ~4 g5 h" z& T0 P1 SCodz:
0 T$ Q' o0 \: ^2 d
0 i, n' i2 p! y  T& \, vwith new regexp
  d/ Q/ a7 S7 S( [) H/ {    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
3 o8 C$ l" |, i6 ?' t, L; F    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
) A/ ~, N9 r* Q2 L7 ?$ Hfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
  T" w. b9 {0 @    for each m in ms
        if m.submatches(1)=ps.handle then
! a- G1 O( ?2 z4 Q            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
. I! E1 p( Q7 s) W. V, M( B            wscript.echo " "&amp;m.submatches(0)
; A. _1 o5 A5 k/ I3 |0 ^+ z1 ~        end if
: L2 u, V# L! \$ H% W' ~  ^    next
next


+ X: }3 r1 q2 q  ]: f" ?照例给出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
- n- f) S2 F! ^: d; l2 d@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
! x) q$ v0 Z1 {8 J9 ?@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

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