fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
4 F" k7 v6 u5 F3 S<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
. ^$ a# d5 `$ B) j* {0 g! }" s
vbs脚本版：
( R1 g7 h* K9 o' t" d9 o9 V3 lCodz:

  G* z3 S7 H; h4 _2 h, r& ]with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
) D, a1 e$ O3 U0 n6 q" v+ _    .global=true
! Z, c& x% D/ Q    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
; m# B3 w& }! }! C- Cfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
# X0 K, w5 F* f5 e, n    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
4 Q. j9 H& H# ?( c+ w            wscript.echo " "&amp;m.submatches(0)
        end if
    next
5 T: y9 N3 y* h2 D! c6 Rnext
' }' ?" m7 {* c* h. I
/ d' P# F, L% W# y. q) q% R
照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
' {6 Y# s; T7 q2 E/ @! H@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
/ g. d* @4 j6 }3 G: N@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
1 ~' h- x: k  V) a0 ~* N5 i4 K@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
3 y1 @5 M! e1 o0 ^+ M@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

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