fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
3 z* N3 W' H1 v( A7 J: b. A# Q
vbs脚本版：
; |% ]1 q# g8 J! D+ M, sCodz:
+ Y# e" _. p" B" F
with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
" O3 K1 r7 }3 x9 G0 E" {end with
# K( y7 o+ V; a% I2 @1 S  m2 Ufor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
, @$ J* X, o) Z, K( O    for each m in ms
        if m.submatches(1)=ps.handle then
, ?: T, N$ I* y4 D; }            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)
3 E. {  c; L7 C# n' j        end if
; [( b% i: w) u) R# a& \6 O    next
next
" r5 U4 ?* L6 @# d) ?# c
9 o3 k6 y  w8 ?) M
照例给出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
@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
* y" X+ L4 \% y* V% i3 Q8 c@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
% J" G, c4 j- d# a, [@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

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