fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
3 j) ]3 [# ~* V# b$ a, p1 t<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
8 S) w2 J) v$ }' b4 R2 [
" J3 c0 u# _) O8 cvbs脚本版：
! U/ [0 N2 |7 r, WCodz:
' T1 A2 ^1 [5 h4 @
/ e9 t5 D- \; ?  s1 L0 k/ ~/ vwith new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
0 |4 A  j9 T+ y+ A    .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_
- s/ J: F. v4 h( N/ ~) n8 G4 t) g    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
" x" y: f2 @) S
0 L8 H- `' q$ s4 w0 B- F
照例给出echo版，方便在远程shell中使用。
" L( s3 T6 X8 T9 O6 _4 N8 _1 y@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
; \9 E* g! H1 R0 o3 v@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
: f# K9 j( ?. h( l8 f! p@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
@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
9 M3 U# B+ `& f9 L) r# n9 T( H8 D@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
& p& k' s$ G5 l; S2 J) a* r  v@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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