fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
# W2 [, I, F' C  e) x& Z<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
2 P! Y2 n* C4 }, v4 o
vbs脚本版：
6 f* y3 E0 o9 cCodz:

with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
) P% t: K% G6 F! v# a* y    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
6 F- {* W/ F- P& T" w+ Gfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
* e6 i1 C" d+ r0 @2 G% o    f=0
    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
# k% U. e. H* r% B. c$ B3 o            wscript.echo " "&amp;m.submatches(0)
$ |$ ]% T2 D2 w0 P4 z2 {# y        end if
    next
3 ]- U4 q8 J. k! `$ w( y" @# m' Gnext
7 a# W+ k- t& l; K

照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
4 Y* V# O! o# w) T  t0 f% o@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
7 A! Y8 m* Z1 q0 F@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
- s- x) M7 C; J+ U4 T* h' h5 ]@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
! k& h9 Q8 e$ ]@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

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