fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
2 H" Q; A- ]4 x8 p4 H<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

+ L: ]* c- }" b5 `vbs脚本版：
Codz:

" I8 z# ]5 F9 ?2 ]3 ~" ^with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
4 Z8 X- H5 \5 q. f6 }: R* p    .global=true
" W6 A) D) M6 E6 j2 v2 R! |    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
9 k6 R' B8 I7 A, n  J4 u2 jend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
+ v3 S3 d+ t4 ^1 ~% m    f=0
- x$ y- W+ P  n" e6 h6 ~8 g    for each m in ms
: p( S3 A8 Y/ X! e; [& F        if m.submatches(1)=ps.handle then
( F+ U7 O; `$ k- Z            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)
: L( V' D/ D! F% L/ ~        end if
    next
next
& o! T' R/ d3 }# F. q2 s9 [
# {2 r4 n8 T, [
1 j% _  @* f5 l! S- ]" p照例给出echo版，方便在远程shell中使用。
6 u$ Z' l- i4 W3 a6 {% l@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
@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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