数学建模社区-数学中国

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

作者: 韩冰    时间: 2004-11-5 22:57
标题: fport.vbs for XP/2003
<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
: p- }; {9 e; b( o! c2 r% q3 q<>XP和2003下的netstat有-o选项,所以可以容易地实现fport。6 q  _1 V: P  |' v- F/ i( j

% w+ L, Z( F: T  vvbs脚本版:3 H" Y! X$ j1 a  ?0 a7 g% a# ^# q& d) o
Codz:
' k# E0 ]: ]& [) T
0 l# |) y+ u: `2 w$ Vwith new regexp ) o& k. j9 ^9 d
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
; x+ W- F5 T0 J$ s( c) q0 ^: q. ?    .global=true
' f/ {& q; ~8 W) `" T    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall) ! z9 m0 T: m- ~+ k9 I! Q; O
end with , y. D1 D- D: b1 P8 a- S0 a$ c9 U
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
' ?5 c- q/ t. b    f=0 8 N- Y: E! Z( Z/ m
    for each m in ms
( d' P% K( e' [8 j4 l# G        if m.submatches(1)=ps.handle then
. X5 p. S6 k4 t" l  t            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath
# T# ]3 C( [* {( _0 F. J4 K            wscript.echo " "&amp;m.submatches(0)
# B* r: W+ O3 F9 l2 k        end if
0 \& F8 Q! Y: D1 `) ^* h    next ; M8 o& E8 S: u) o/ F
next% C( S6 H: M, a* H: ?4 d7 e9 I$ u

  Y9 b0 d6 T! N
( O4 e) F: O; T- f5 E照例给出echo版,方便在远程shell中使用。
& Z0 Q3 v( G- x@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
6 R" b" A+ j6 N# c@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
0 j$ A* n9 Q$ d$ _/ o8 ]; @, M3 x( n, I@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
9 S3 _1 D7 Z+ F+ o6 r@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
* ~6 W. R; l/ j. A) g5 r( S" W; m@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) U, J9 G2 H! K6 w% Q# l& t# R- \0 Y
@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
% ~2 x6 G3 }( a) B  _) U% S@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