fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
4 @  n8 O! [! Y) N% z8 n<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

0 T/ x4 k! t& n( E  u. S7 Bvbs脚本版：
) P6 R5 d" h; c0 x, P3 G. a$ ]% kCodz:

% l. `7 |5 d8 G4 d1 owith new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
    .global=true
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
/ b4 V) }7 i' a& W  g7 G4 B    f=0
  V/ _0 ^$ C) v0 s; R; D% t    for each m in ms
1 k/ D9 Z  c6 \( J" f        if m.submatches(1)=ps.handle then
# a, r5 Z* M/ ], g* _5 E: T            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
# s, b* C: P- [- _! q9 e    next
0 a0 b  B0 H% znext


' R2 C1 b6 B4 {# i0 ~9 j照例给出echo版，方便在远程shell中使用。
@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
@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
0 `  E9 I* y5 V5 f: R3 |@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

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