数学建模社区-数学中国

标题: fport.vbs for XP/2003 [打印本页]

作者: 韩冰    时间: 2004-11-5 22:57
标题: fport.vbs for XP/2003
<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
7 v/ Z7 K9 ~9 d0 M1 g<>XP和2003下的netstat有-o选项,所以可以容易地实现fport。& t$ M6 R$ d5 R3 \: e0 q) ]1 w7 ?
! Q; @& _& `  `8 r6 p
vbs脚本版:4 F( L$ j% K5 n% c; S
Codz: 9 I) Z; t0 I* B# E) C" D

8 r+ t, y. N) H$ @* U8 s* R0 ~with new regexp
4 J) w  i4 E3 Z( e    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)" % c1 q& ?% }" l5 l; C/ `
    .global=true
& Y! B- |" u* d  \+ g    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall) 9 W  v+ }  k. r3 n. y% U/ g
end with * f# a' |8 l% d( M8 L3 m
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
# K2 O# F) A( J3 n' n' s7 z    f=0 , y2 c2 N  L7 B/ c/ D/ j$ t* F
    for each m in ms
/ z3 k; |- f8 ]8 X$ N        if m.submatches(1)=ps.handle then , C6 m1 F6 A+ v& X& [( w
            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath , D, a7 G" b! V  C5 r& R
            wscript.echo " "&amp;m.submatches(0)
# ^( q: u7 w2 d  T8 y4 `        end if
" D5 K2 _2 Q6 `# f    next
( a' D3 u/ \) M, j/ G& ]7 lnext$ K3 b4 F  P) S- c$ c  z/ o
7 j  w! g- R8 u: ^4 _) ^2 j8 e8 P2 S7 r

* O1 _& B2 n" k6 \) V1 d1 t% x6 ^照例给出echo版,方便在远程shell中使用。9 e0 k2 P  {& ^( Z5 o
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs& N. R9 q& _$ G1 O6 z
@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
; N$ N7 }+ X- `/ k0 t: _4 e$ ?! f" ?@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs  z3 v7 G7 l1 M9 B, f
@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
' L! s0 y) u9 s' s  h@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.vbs2 t# D/ q. B/ f4 ~
@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs# p, ?- L- I4 b: I1 L3 `
@cscript //nologo fp.vbs&amp;del fp.vbs</P>
作者: kensington    时间: 2010-2-3 23:20
排版好乱
作者: sxjm567    时间: 2012-7-15 22:19
众里寻他千百度,蓦然回首在这里!




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5