QQ登录

只需要一步,快速开始

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

fport.vbs for XP/2003

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

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2004-11-5 22:57 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>
3 j) ]3 [# ~* V# b$ a, p1 t<>XP和2003下的netstat有-o选项,所以可以容易地实现fport。
8 S) w2 J) v$ }' b4 R2 [
" J3 c0 u# _) O8 cvbs脚本版:
! U/ [0 N2 |7 r, WCodz:
' T1 A2 ^1 [5 h4 @
/ e9 t5 D- \; ?  s1 L0 k/ ~/ vwith new regexp ) Y9 a$ J* E2 ]& B0 y; l
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
0 |4 A  j9 T+ y+ A    .global=true 8 k/ A. s1 l8 r( ~* `2 m
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall) % n: k4 y; z2 y% [
end with 2 x) K1 B' O9 i( E  B) k, ?
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
- s/ J: F. v4 h( N/ ~) n8 G4 t) g    f=0 % k9 c7 B: t! Y6 Q+ n
    for each m in ms + n  J8 k9 l6 K5 b
        if m.submatches(1)=ps.handle then ' R/ H% R9 G1 ]
            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath 3 ~/ E+ x& u# I, [2 _# _
            wscript.echo " "&amp;m.submatches(0) ) H* b7 N1 a: g- w! `7 b- v
        end if , h% {6 v2 l) y, a# p6 ~4 R% e
    next ; }: ]8 c- [4 U. |' O
next
" x" y: f2 @) S
0 L8 H- `' q$ s4 w0 B- F. z3 ]4 T1 o+ I
照例给出echo版,方便在远程shell中使用。
" L( s3 T6 X8 T9 O6 _4 N8 _1 y@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs
; \9 E* g! H1 R0 o3 v@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs6 D  U+ L# }1 p. j& T2 j5 [7 T8 S
@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs
: f# K9 j( ?. h( l8 f! p@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs" x& d( W- f7 [& W# v. }
@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
9 M3 U# B+ `& f9 L) r# n9 T( H8 D@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs
& p& k' s$ G5 l; S2 J) a* r  v@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:24 , Processed in 0.550894 second(s), 63 queries .

    回顶部