- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
< >作者:zzzevazzz 来自:http://www.ph4nt0m.org</P>
: k4 p2 Y r+ J$ Z< >XP和2003下的netstat有-o选项,所以可以容易地实现fport。+ \9 n$ A' \ U2 E, N
6 ?6 g3 ]% S7 \+ {& c: {9 [3 C
vbs脚本版:
4 S4 u) v$ r5 MCodz:
; h/ x* X* I& S3 J" v5 _6 s5 s9 M
with new regexp
: |' Y" `9 H8 p( Y+ l% i .pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)" $ g+ u5 k- e* G5 @
.global=true " ]" X: f; h! C
set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
% M" a+ [0 |# N2 C- Z0 Dend with
" f, e* w+ }3 Ufor each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_ 1 W: S0 p; h* n
f=0
* l/ e6 I6 }4 E6 ^- P. t7 h% ~! I. I1 r$ z for each m in ms
" N, b, f0 P$ z. u5 K7 V if m.submatches(1)=ps.handle then ?3 j- K' H. c3 j
if f=0 then f=1:wscript.echo ">"&ps.handle&vbtab&ps.name&vbtab&ps.executablepath 6 @* e2 Y* H. p7 k
wscript.echo " "&m.submatches(0)
0 {$ j( A8 J7 j- M% X end if
, l% u6 s0 m: H$ e4 ] next
7 c7 ~+ L1 M* o V' Dnext
2 J3 J# `3 |0 i5 C5 v
* Y. }0 T& M3 i% f% p+ E/ p& Q: d0 F- u; A; P% w3 }' @
照例给出echo版,方便在远程shell中使用。
3 G# c+ G; Y1 h' ~# W) l@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true>fp.vbs
* X3 u5 q4 x, A@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)>>fp.vbs
9 B+ e. d% H& ~ }9 U( E6 |& Q7 S@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_>>fp.vbs7 O; R8 z* V5 J9 A; v' `0 j; [
@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _>>fp.vbs3 h$ f7 i H- A
@echo if f=0 then f=1:wscript.echo ">"^&ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:end if:_>>fp.vbs" C0 `: E+ j6 B/ m0 j/ L% T6 W
@echo wscript.echo " "^&m.submatches(0):end if:next:next>>fp.vbs
- O1 b' ^/ L% \) Q. O) V@cscript //nologo fp.vbs&del fp.vbs</P> |
zan
|