fport.vbs for XP/2003

韩冰

<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
<>XP和2003下的netstat有-o选项，所以可以容易地实现fport。
/ K" b& }. i' x; J3 h: F
  N# V+ R+ z; A9 L. T( Q$ G* ~vbs脚本版：
1 f* K# b! l, `: |; T6 BCodz:

with new regexp
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
3 r# e7 r, N$ C9 h6 A5 {. S    .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_
5 V9 h. T# _) x4 }5 E/ d    f=0
    for each m in ms
" S. r! R) x9 o5 G$ F9 T        if m.submatches(1)=ps.handle then
( k$ Y& |/ X- w/ ]9 e            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
* J* s/ a: k# Z! J) r6 O7 e8 F            wscript.echo " "&amp;m.submatches(0)
8 [9 ^. ^4 t- B. r5 h        end if
& d7 g4 n& Z( ~5 q% S9 v: e  M    next
5 Z) P' c" R- ?% s% S; Nnext


, D* N- @: u+ X% Z! d0 F照例给出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
@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
; u: Y5 e* C! B7 J$ A) U@cscript //nologo fp.vbs&amp;del fp.vbs</P>

kensington

排版好乱

sxjm567

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