fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
, v  U* b  k% `% {0 I/ B
vbs脚本版：
Codz:
6 B6 ^' w$ u* E' D8 g1 z; q" o! K
with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
/ h$ L) S: N3 A4 o    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
" P% Q. d# l) S' G- V  L8 Aend with
) Z  E# h( ?, ifor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
    for each m in ms
        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)
        end if
    next
8 @3 a8 R! n' H1 g- ]3 P: enext

: o8 b8 P* \( X1 M5 M
照例给出echo版，方便在远程shell中使用。
9 u+ Y1 u( K4 N: _  j' t@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
0 [2 p2 p1 U5 y: ~@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
) g1 |* D7 W# ~  S, N  ?@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
! Z2 c: `9 ?9 x6 d1 }8 d@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
4 \0 L4 V/ J: V% M; N' h8 X  [@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
1 j! u* S) ]: V% j& x+ c@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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