fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
; o. h0 j7 N, t3 j1 q/ C<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

( C: m* }3 O' s/ I. ~9 mvbs脚本版：
1 N& U$ s) b" q: A3 }Codz:

' M  m+ v% ]' C; r; U0 N- Lwith new regexp
% G4 r5 a& n5 Y$ I4 \; \" H0 Y    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
  D7 A* d6 q/ D) `5 y' [    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
- N+ z3 X" ?' }+ `- J! Kend with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
6 D9 D' R. A- _. I, H    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
next
6 s4 k" b0 c/ O1 ~

: f' T2 k0 j: o/ r  W7 R- C照例给出echo版，方便在远程shell中使用。
3 b* k7 M* U, p6 p( v! F* W+ s@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
* a) a3 \& Q: O& x5 y) l- R* ~@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
4 C: z8 u2 s4 x9 A6 @# R@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
$ @, w. k: o/ @6 e8 D, W8 v@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
@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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