fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
7 E: d. G5 {8 m4 s- ^! l<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
8 D! g$ c1 u3 p8 Y% N* i
vbs脚本版：
Codz:

with new regexp
% W% F+ S, o6 R& q: x9 @- {    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
% _1 B; B% y" }7 B! G& A& {end with
' L6 j' f' |) Q+ zfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
. @2 w$ U, B5 H: C    f=0
; A6 }! V0 x8 S3 V3 y    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)
        end if
- W9 u$ V. [" h7 n9 F2 O6 G' _    next
1 q" t2 u. {! S' anext
1 l( T# N. k8 o' J$ x/ j4 U7 D. Y

4 A6 \8 \" f" O& q( Y照例给出echo版，方便在远程shell中使用。
; |) M; G  a3 |) E@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
+ w! N8 w" A$ H5 R@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
! h  D  o. _4 p8 E/ P% 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
@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
! k$ Y3 |4 v% I! Q* U0 x@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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