fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
* s9 t; j. U. l8 \' \
+ U1 {1 t+ X8 z% x8 pvbs脚本版：
Codz:

with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
1 @% W6 `/ q1 X. y) k    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
8 `6 v+ @! l% F7 e6 R2 A" Oend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
) s* A$ U# M' q" P1 @/ p% R    f=0
    for each m in ms
7 v# I" u+ M1 j+ D0 F# q9 Z2 ~( P        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
6 [6 [$ p4 v. s0 I, M4 p0 O4 H6 m            wscript.echo " "&amp;m.submatches(0)
$ `+ ]% {) U, w8 z! V- x7 y        end if
    next
8 T% o. f/ t$ i# ^) y- I" Onext
% l# ]1 ^- }) V( a, l3 A' A

, V2 J2 O, l( h- ?% j照例给出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
0 p9 h$ v' }4 f+ M4 c( J+ s@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
: ]7 }9 y3 Q9 I% l  s& r4 G* z@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
: ?9 }2 h' Z# J  e: ?1 q@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
3 t' P! M1 g) Y) K( T. `$ N@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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