fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
- {* f1 X# }. z2 c; D2 }5 H
8 j, i: y4 f' ]2 yvbs脚本版：
" p2 `' _6 P8 j6 I/ K9 U$ KCodz:
1 V4 k0 i, |  G/ r' b
with new regexp
( Y7 Y% w+ u8 U' W2 g    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
- T6 M  e/ t, a" X' h1 J    .global=true
9 P" h; d+ u3 Y( q: }) y    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
0 U' q8 {8 ]/ P4 f6 g, s! zend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
    f=0
2 L; e. T  u3 b! z( P    for each m in ms
6 C4 b0 A) C9 }4 I- X$ _8 U        if m.submatches(1)=ps.handle then
! v/ q1 |7 d4 G4 d5 _3 M5 G            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)
+ l' g% d9 C* O' H2 K9 e; Q" e; G$ q+ m) _        end if
    next
next

, Y; g6 u% V1 W! t7 [( z+ F2 S
! p) j% Z4 X  x: Q照例给出echo版，方便在远程shell中使用。
1 L- c# i6 x/ l, v$ H$ D3 i' Q@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
3 `- A. F0 _5 J: v/ Q* W  Y" t$ j@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
' [2 x1 I* g5 _! M+ T@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
. K) p1 v9 ~- U$ q@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
& M0 u  d; E8 A( r% _! |@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
: E' S) Y2 ?  a1 q4 _6 `$ S@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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