QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 10328|回复: 2
打印 上一主题 下一主题

fport.vbs for XP/2003

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

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2004-11-5 22:57 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
, L3 Q7 X5 Y+ J& I<>XP和2003下的netstat有-o选项,所以可以容易地实现fport。5 _0 v; R; J: o* r) D$ q
5 D  K$ b# F: ~
vbs脚本版:
1 ~- j- L5 F+ s6 y% {0 J9 |Codz: / t9 D5 e% e+ z% R1 ]
' m" _$ U2 g  x: q) a
with new regexp
2 q0 l; x& b/ [* A! c. I2 H    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)" . S6 B. y- B8 H8 o) i: i
    .global=true
8 G" v5 e0 e" f; j    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
% p  c# [5 I) Dend with
( p! y4 |: `9 T! e' xfor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_ 5 `6 g4 a% n  T6 E8 i# {5 g3 D
    f=0 5 H, J* D3 z- M, g  k# u
    for each m in ms
3 ]' V, ^5 o0 m; F        if m.submatches(1)=ps.handle then   K8 X# R* A. d
            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath # [3 [% t- N, G% O
            wscript.echo " "&amp;m.submatches(0) - z4 h$ L; k6 f/ H0 A+ G5 ^2 t. E* o
        end if
5 S% F( h6 d; }# B) ~+ Q: l+ s    next " Y2 b2 C5 S3 A" ?& T
next
% z7 o- ~8 J& {, [5 P( K2 t5 m% z

) J' Q( Z# h& t0 f* G7 P照例给出echo版,方便在远程shell中使用。! E/ I, Y) J+ N" ^% ~% y5 m
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
5 o: d8 s* D! m# }2 g@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
; h7 P( J. i& T6 j: ^@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
9 y- Y4 i) z3 j) F& a8 I; D@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
# o# R" R$ A. Y1 \@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
' u4 c. a+ D. S" V% l7 U- Q" R@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
  a4 W8 ]9 O& u4 c@cscript //nologo fp.vbs&amp;del fp.vbs</P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信

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, 2026-1-3 23:03 , Processed in 0.564743 second(s), 64 queries .

    回顶部