查看: 10023|回复: 2

fport.vbs for XP/2003

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2004-11-5 22:57 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<

>作者:zzzevazzz 来自:http://www.ph4nt0m.org</P>
<

>XP和2003下的netstat有-o选项，所以可以容易地实现fport。

vbs脚本版：
Codz:

with new regexp
.pattern="(..Ps+S+s+S+s+[A-Z]*)s*([0-9]+)"
.global=true
set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)
end with
for each ps in getobject("winmgmts:\.\rootcimv2:win32_process").instances_
f=0
for each m in ms
      if m.submatches(1)=ps.handle then
         if f=0 then f=1:wscript.echo ">"&ps.handle&vbtab&ps.name&vbtab&ps.executablepath
         wscript.echo " "&m.submatches(0)
      end if
next
next

照例给出echo版，方便在远程shell中使用。
@echo with new regexp:.pattern="(..P\s+\S+\s+\S+\s+[A-Z]*)\s*([0-9]+)":.global=true>fp.vbs
@echo set ms=.execute(createobject("wscript.shell").exec("netstat -ano").stdout.readall)>>fp.vbs
@echo end with:for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_>>fp.vbs
@echo f=0:for each m in ms:if m.submatches(1)=ps.handle then _>>fp.vbs
@echo if f=0 then f=1:wscript.echo ">"^&ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:end if:_>>fp.vbs
@echo wscript.echo " "^&m.submatches(0):end if:next:next>>fp.vbs
@cscript //nologo fp.vbs&del fp.vbs</P>

zan