QQ登录

只需要一步,快速开始

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

fport.vbs for XP/2003

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

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2004-11-5 22:57 |只看该作者 |正序浏览
|招呼Ta 关注Ta
<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
' d6 j+ h$ B2 d; T/ o4 [* w/ K<>XP和2003下的netstat有-o选项,所以可以容易地实现fport。, X  t5 w3 z) ~- e- O- c
; u- K1 N* ^8 n" L+ \3 O
vbs脚本版:
( }! W) j1 ^( y. nCodz:
4 |8 Q* \, N8 i* q( n0 E: t- C! {! ^8 M; C+ x- I5 F
with new regexp
/ B3 X  _. ?" n: ]2 q    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
# D* h+ _6 E3 K# k' z/ r    .global=true
  k5 E: ^4 z# l3 d: d& e0 w    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall) - ?% c$ H2 y9 S, |, v8 X2 j9 Z
end with
0 y: Z& D& r% n4 G$ Ufor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_ * ?  N9 B, \$ P4 W- s, u
    f=0
9 |% a) U5 T) G% G! F# j( z8 p    for each m in ms
9 i" {9 c8 _/ e& r- Z        if m.submatches(1)=ps.handle then
: o1 O" \7 `2 ~4 e# I7 B: X            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath 4 |; G" w* [+ D$ |+ w- D  D
            wscript.echo " "&amp;m.submatches(0) $ Z7 Q0 g! _) {' r) ?
        end if
' z) z, Z' m1 b  U) F5 ^# j    next 5 q' |. Y2 P0 R5 Z: r/ Y; p
next9 Q+ A3 }# d5 m5 M5 |9 m8 L
, Q3 E. n/ r, M; |3 K

- Q4 k! l1 h8 N4 [6 B9 R; N照例给出echo版,方便在远程shell中使用。8 i# w. P% v: O  n( z7 A
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
: ?! y# S9 ^1 {; G@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs
8 {  T( i; X9 w" j; d0 T  f@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs5 L$ ]7 b- w3 k) q
@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
9 t/ L/ M' d/ p6 T* u6 s( w9 z@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
$ c5 I  I+ B# q4 \# ]; R; h@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs& c6 S/ Z0 J  W# s9 t
@cscript //nologo fp.vbs&amp;del fp.vbs</P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
sxjm567 实名认证       

8

主题

7

听众

2174

积分

该用户从未签到

新人进步奖

群组数学建模

群组我行我数

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

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

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

回复

使用道具 举报

30

主题

3

听众

2324

积分

升级  10.8%

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

    [LV.4]偶尔看看III

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

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

    回复

    使用道具 举报

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

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-9-19 23:50 , Processed in 0.327165 second(s), 64 queries .

    回顶部