请选择 进入手机版 | 继续访问电脑版

QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 9061|回复: 2

fport.vbs for XP/2003

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

发表于 2004-11-5 22:57 |显示全部楼层
|招呼Ta 关注Ta
<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
" @4 F" b3 |% Q<>XP和2003下的netstat有-o选项,所以可以容易地实现fport。
9 E7 Y( j9 J3 I0 T$ o! b; d4 A& m0 I3 c4 B8 ~
vbs脚本版:
" g5 H: g  a1 U  Z  vCodz: 5 a6 N- R3 o) P

2 A/ _( ~9 H9 }8 |- Swith new regexp / _- S( ~3 J$ y/ {* C, e
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
- u8 ~+ |% W' [2 V1 H5 A) Q    .global=true : P  d4 C9 |, ?6 t( g
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
& ]6 g# q" D6 W2 Y! d0 Xend with
' j: g3 C2 ]; [3 Efor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
0 v: _! l6 r- X8 s$ i6 S0 K    f=0   J5 k+ W( ~) H2 b
    for each m in ms 2 x: h4 G7 z( m% x7 b8 Y
        if m.submatches(1)=ps.handle then 1 L' c# A* T8 \
            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath - M) _$ [- `, c+ D2 |
            wscript.echo " "&amp;m.submatches(0)
, M; c) F% `5 I! z# x5 u7 e        end if
' c9 H$ m' A2 Z7 i; @( z, b3 r# Q8 s" g    next
( R6 e# M5 U, qnext
8 q1 I( v, u6 l# T+ _' R. ^1 y" L" X* E

7 d' f2 o2 N+ B照例给出echo版,方便在远程shell中使用。5 V5 H1 `4 N+ n/ I) o" C! m/ x5 a7 {
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
; V7 d. w8 n) v- q+ H@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs+ J- M& d( ^! P0 M2 c
@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
3 ]3 ]4 V7 f# ]& L3 W! p@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs! U* p2 i8 m$ ?/ x$ K* n( W" C
@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.vbs9 M7 x4 I! r& ~! `6 Y' O4 g+ Q+ ]1 c
@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
) u. m9 E. J6 Q  l0 i@cscript //nologo fp.vbs&amp;del fp.vbs</P>
zan

30

主题

3

听众

2324

积分

升级  10.8%

  • TA的每日心情
    奋斗
    2023-6-21 14:13
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    自我介绍
    200 字节以内&amp;lt;br /&amp;gt;
    不支持自定义 Discuz! 代码

    邮箱绑定达人 新人进步奖 元老勋章 原创写作奖

    回复

    使用道具 举报

    sxjm567 实名认证       

    8

    主题

    7

    听众

    2174

    积分

    该用户从未签到

    新人进步奖

    群组数学建模

    群组我行我数

    群组数学趣味、游戏、IQ等

    群组09年国际数学建模群—鹰之队

    群组电子科大数学建模交流群

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2024-3-28 21:18 , Processed in 0.341787 second(s), 64 queries .

    回顶部