QQ登录

只需要一步,快速开始

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

fport.vbs for XP/2003

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

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2004-11-5 22:57 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>作者:zzzevazzz   来自:http://www.ph4nt0m.org</P>, l0 M  a2 e$ Z. }
<>XP和2003下的netstat有-o选项,所以可以容易地实现fport。
3 z* N3 W' H1 v( A7 J: b. A# Q7 x( o( n: K, {3 e8 \8 P( t
vbs脚本版:
; |% ]1 q# g8 J! D+ M, sCodz:
+ Y# e" _. p" B" F! h6 E, u' O$ f  @
with new regexp - N) N$ W, X1 A$ X
    .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)" & \+ v, n9 @  y. c% h
    .global=true 3 ]/ F& K! o& ^" P1 v
    set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
" O3 K1 r7 }3 x9 G0 E" {end with
# K( y7 o+ V; a% I2 @1 S  m2 Ufor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_ # `( R1 J# }5 g9 _8 G5 T, {( n/ H# D
    f=0
, @$ J* X, o) Z, K( O    for each m in ms ; R; [- G- B. P2 h) K
        if m.submatches(1)=ps.handle then
, ?: T, N$ I* y4 D; }            if f=0 then f=1:wscript.echo "&gt;"&amp;ps.handle&amp;vbtab&amp;ps.name&amp;vbtab&amp;ps.executablepath # k8 J$ a# J* Z! K
            wscript.echo " "&amp;m.submatches(0)
3 E. {  c; L7 C# n' j        end if
; [( b% i: w) u) R# a& \6 O    next * D, z$ n/ K5 j6 B% f9 y# N
next
" r5 U4 ?* L6 @# d) ?# c
9 o3 k6 y  w8 ?) M( v( j$ M( s& b8 i  Y" l4 T% i% R
照例给出echo版,方便在远程shell中使用。! @; E) V. N( k$ O# U! U
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true&gt;fp.vbs6 ~- D& J$ l, q! h& R) d8 _( T$ Y! f
@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)&gt;&gt;fp.vbs4 k6 I: I) e* I) ]0 n
@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_&gt;&gt;fp.vbs" n, T; A' a. N; b0 r& s
@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _&gt;&gt;fp.vbs
* y" X+ L4 \% y* V% i3 Q8 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.vbs
% J" G, c4 j- d# a, [@echo wscript.echo " "^&amp;m.submatches(0):end if:next:next&gt;&gt;fp.vbs. u( p; R- |, Q- r
@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:11 , Processed in 0.627431 second(s), 63 queries .

    回顶部