fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
, Q: G7 _7 H' [  s+ N
) d8 c# S$ x$ h% y  V9 ~vbs脚本版：
Codz:
8 p! c/ C  ?/ g8 F$ F5 i
7 A- u: C( k5 [) iwith new regexp
. J7 P; |3 v2 }    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
7 D) z( h$ q" d6 y: ~; M8 e    .global=true
7 ^! w" q" n+ U/ }    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
0 x6 {* f" h4 e; g- p: K6 f7 `    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)
5 d) x. R/ S, _0 d+ c        end if
    next
next
- }3 }" P/ x; c: ?

7 f8 |$ b0 r4 D# y) T1 t照例给出echo版，方便在远程shell中使用。
! H; {' b. d% w8 ]$ N+ k; v@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
* \9 u; s7 @4 H. x0 W@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
9 ^- E' I+ d, H- I4 d@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
8 l& N1 D% e$ I; P  r# ?@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

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