fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
/ I8 e9 F: c2 \( A<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

' U: K. e7 p  U) e+ xvbs脚本版：
; B" J  \  o: h  c1 ?! qCodz:

# U; Q- M$ I0 o% S2 |7 P7 c4 Dwith new regexp
+ r) _$ e2 J, {. u# c0 p+ K7 |    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
3 G  b3 R3 c+ dend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
) q. L6 b9 m. n+ v# @. J# [    f=0
# O$ |( w, z5 E4 I, X0 l    for each m in ms
3 c3 [# X, J9 N) S" w        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)
7 @5 B) V' Q0 q$ l6 Z2 O: q        end if
6 ]* _$ L/ C& {8 k    next
0 G4 Z' P+ O: O8 b6 _2 C3 _next
4 d5 q/ B  J" z& {" W) x* _3 [
% t# L0 N: W# R& O2 ?* K! x
) A% q. U* b2 R% }照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
( h) m5 _$ A; q; u@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
- w& B$ \8 u, W@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
8 j, {  W4 @) f/ ^/ B@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

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