fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
4 ?; W$ T! B5 x" j- e( `<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

( z. [0 X! q% X& q5 M/ Nvbs脚本版：
% H; O3 E* [* L- @Codz:
9 r! V* M/ a5 n
6 G& g2 j; y# C; C( Z  R0 pwith new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
7 z/ S5 ?! l% j" u& Y    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
- X. n6 f  p7 R& }5 b5 l/ M7 ~# cend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
# T, j5 x. Z+ Z4 R1 \: U. m    for each m in ms
' u3 }# H5 o, J6 M$ ]        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
4 X: V, f7 M- w, C            wscript.echo " "&amp;m.submatches(0)
        end if
* X5 X0 @8 N# D% S* l' N( \    next
) u% s4 m# ^* M+ W( Y6 Gnext
* W4 a) i- p2 C' d& V

照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
3 W( S9 J. \5 u$ x@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
@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
6 h7 v. @) o: r, L) U@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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