fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
% B8 `# B7 M9 W<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

vbs脚本版：
Codz:
+ d. k  }& c% E
, \3 i7 P% H: ^' U: ^) i: Iwith new regexp
1 o( H7 }: y4 e    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
8 }3 I9 J/ v* K" P0 q6 `9 S! V    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
% _) D8 H+ V4 {$ t& @5 Q! n    f=0
/ r+ R; f4 p# e8 P% C+ E    for each m in ms
% d# |( f6 x" j8 V        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)
/ h& `3 j2 ]: Y- }9 k% F# G$ x        end if
    next
. y' \+ G( S6 jnext

1 ~2 g% O! d5 g- v' v
照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
2 L' d( o% N- ^/ o; h@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
4 n8 z. `# t# 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
@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
5 e/ J* z: G6 q. j" K* J/ Y1 P@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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