fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
. S0 N4 b# e' Y/ J6 i- U! s1 _<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
" H9 I' M+ Q6 v/ J: Z& ?. t2 N
" \$ F. ]7 b# Q$ evbs脚本版：
Codz:

with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
% f% H# O3 J( b6 j1 L    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
* \. F; P$ n0 H5 `4 Send with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
3 C0 {$ C3 o4 Q8 W7 c    for each m in ms
! |6 t& i2 u+ E        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)
( Q0 a( I) G( U1 ?' Q8 u6 f9 K5 J        end if
    next
3 j. |# \! {- x  n' ^next
2 a& a" S2 p: B* n
9 t3 U9 m' [+ U) i3 j: ]
照例给出echo版，方便在远程shell中使用。
4 j  K) p. i8 ~$ ~4 s0 T/ v' i9 O@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
' W/ {" _) p( s2 \@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
) N: b4 W* {- w, _@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
7 |7 A2 t' Z- C; X@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

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