vbs源码之的IIS日志分析工具
为什么要开发vbs写的IIS日志分析工具?
在网上找了很多IIS日志分析工具,功能实在太有限,有的仅能分析百度、谷歌等搜索引擎爬虫的来访次数,远远达不到我们的用户的需求。作为一个小站长,有的时候也要分析一下自己站点的广告点击情况,静态页面的还好说,下载类的业务就不好统计了。耗时一晚上写出来本工具分享给大家。
IIS日志分析工具的使用方法
本工具对于初次接收vbs脚本的用户来说,可能有点麻烦。下面我们就一步一步来说说该工具的使用方法。
1、如果 vbscript 默认引擎非cscript,需要修改称cscript。修改方法很简单,直接在运行中输入:
cscript //Nologo //H:Cscript
即可切换
2、下载IIS日志分析工具 压缩包/vbs/vbs-iis-log-jb51.rar,解压,打开log.vbs,修改dbpath为您当前解压的路径。
3、下载您的log日志文件,删掉前三行和第四行的#Fields: ,保存文件名为test.txt,保存到解压目录。
4、在开始运行中用cmd命令打开命令提示符,直接把 log.vbs拖拽到命令提示符中,回车即可开始分析。
以后会出软件版本吗?
会的,不过最近不会,其实现在的代码,直接拿到vb中,套个界面就比市面上的iis日志工具强大,但是现在实际还没有成熟,等正式发布时,功能绝对的强大。
IIS日志分析工具是免费的吗?
是的,本工具供站长免费使用,但是传播请保留我们的版权信息。也许您的建议将会出现在我们未来的软件版中。
vbs写的IIS日志分析工具代码如下:
'============================================================= '= Copyright (c) 2010 猫七(QQ:77068320) = '= All rights reserverd. = '============================================================= '= IIS日志分析系统 v_1.10.0828 = '= 使用说明:http://www.miaoqiyuan.cn/p/iis-log-tools = '= 作者博客:http://www.miaoqiyuan.cn = '= 版权声明:本代码供站长免费使用,传播请保留版权信息 = '============================================================= '= 程序简介:在网上找了很多IIS日志分析工具,功能简单,只能 = '= 分析爬虫来访次数。有时候我们小站长也想分析下广告点击情况 = '= ,这时候市面上的IIS统计工具就无能为力了。耗时一晚上写出来 = '= 分享给大家,同时申请落伍,请大家帮顶。 = '= 申请地址:http://www.im286.com/thread-5021543-1-1.html = '============================================================= '= 文件:log.vbs = '= 功能:IIS日志分析,懂程序的朋友可扩展,功能不可限量 = '============================================================= dbpath = "D:\log" '日志文件所在目录 tblna = "test.txt" '日志文件名,如果修改请同时修改 Schema.ini 中相关节点 function getuag(str) if instr(str,"+MSIE+7.0;")>0 then getuag = "Internet Explore 7.0" elseif instr(str,"+MSIE+8.0;")>0 then getuag = "Internet Explore 8.0" elseif instr(str,"+MSIE+6.0;")>0 then getuag = "Internet Explore 6.0" elseif instr(str,"MSIE")>0 then getuag = "Internet Explore(Other)" elseif instr(str,"curl")>0 then getuag = "CUrl" else getuag = str end if end function wscript.echo string(60,"=") wscript.echo " IIS日志分析工具 By 苗启源(MiaoQiyuan.cn)" wscript.echo string(60,"=") set conn = createobject("ADODB.Connection") conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";Extended Properties=""text;HDR=YES;FMT=Delimited;""" set rs = createobject("ADODB.Recordset") '统计 链接访问次数 statime = timer() rs.open "select [cs-uri-stem],count([c-ip]) from [" & tblna & "] group by [cs-uri-stem]",conn,1,1 ga = rs.getrows() rs.close wscript.echo " = 访问次数 = | = 独立访客 = | = 访问路径 = " wscript.echo string(60,"-") for i = 0 to ubound(ga,2) rsid = rsid + 1 tme = ga(1,i) uri = ga(0,i) '不支持 COUNT DISTINCT 郁闷,使用笨拙的方法 rs.open "select DISTINCT [c-ip] from [" & tblna & "] where [cs-uri-stem]='" & uri & "'",conn,1,1 aip = rs.recordcount rs.close wscript.echo string(10 - len(tme)," ") & tme & " | " & string(8 - len(aip)," ") & aip & " | " & uri next wscript.echo string(60,"-") wscript.echo " 统计:" & rsid & "条记录 查询用时:" & formatnumber((timer() - statime) * 1000,3) & "毫秒" wscript.echo string(60,"-") & vbCrlf '统计 访问详情 for i = 0 to ubound(ga,2) rsid = 0 uri = ga(0,i) wscript.echo string(60,"=") wscript.echo " 访问详情:" & uri wscript.echo string(60,"=") statime = timer() wscript.echo " = 编号 = | = IP地址 = | = 浏览器类型 = " rs.open "select DISTINCT [c-ip],[cs(User-Agent)] from [" & tblna & "] where [cs-uri-stem]='" & uri & "'",conn,1,1 do while not rs.eof rsid = rsid + 1 'IP 自动变成了数字,还没有找到解决方法 cip = rs(0) uag = getuag(rs(1)) wscript.echo string(8 - len(rsid)," ") & rsid & " | " & string(8 - len(cip)," ") & cip & " | " & uag rs.movenext loop rs.close wscript.echo string(60,"-") wscript.echo " 统计:" & rsid & "条记录 查询用时:" & formatnumber((timer() - statime) * 1000,3) & "毫秒" wscript.echo string(60,"-") & vbCrlf next
到此这篇关于vbs写的IIS日志分析工具的文章就介绍到这了,更多相关vbs IIS日志分析内容请搜索猪先飞以前的文章或继续浏览下面的相关文章希望大家以后多多支持猪先飞!
相关文章
- 今天在写一个vbs的时候,发现中文乱码,后来写好代码正常运行的代码压缩一下给了同事,发现报无效字符,经过验证后发现原来是编码的问题导致,这里就为大家分享一下...2020-06-30
- 今天在脚本之家看了几篇关于vbs FileSystemObject的一些资料,发现不够详细与完整这里刚好发现了一篇更好的文章特整理一下,需要的朋友可以参考下...2020-06-30
- 这篇文章主要介绍了vbs 读写注册表之系统启动项添加值,需要的朋友可以参考下...2020-06-30
- 这篇文章主要介绍了iis7或iis7.5中无法找到脚本文件adsutil.vbs的解决方法,需要的朋友可以参考下...2016-01-27
- 这篇文章主要介绍了使用VBS浏览本地文件的3种方式,获取完整路径,需要的朋友可以参考下...2020-06-30
- 这篇文章主要介绍了简单用VBS调用企业微信机器人发定时消息的方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-12-08
- C#中利用ScriptControl动态执行JS和VBS脚本的实现方法,需要的朋友可以参考下...2020-06-25
- 现在看到很多朋友都不明白VBS,但我也没有时间全部写完,所以一天写一些,边写边和大家交流,也希望有朋友能接着写或指出我的错误。...2020-06-30
- 这篇文章主要介绍了vbs小程序图标更改方法的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-06-30
- 在VBS中,我们有时需要判断一个COM类是否存在,以便执行不同的操作,需要的朋友可以参考下...2020-06-30
- 有时候我们需要获取当前vbs脚本所在的文件夹,或者运行当前脚本文件夹中的文件那么就需要参考下面的代码了...2020-06-30
- 这篇文章主要介绍了拖拽文件显示文件路径的vbs代码,需要的朋友可以参考下...2020-06-30
抖音vbs表白代码大全 抖音vbscript表白代码使用方法
抖音vbs表白代码大全分享,最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法,感觉非常的有趣。不过不少玩家还不知道怎么弄的,下面就来一起看下制作方法吧...2020-06-30- 这篇文章主要介绍了15分钟学会vbscript中的正则表达式,需要的朋友可以参考下...2020-06-30
- 这篇文章主要介绍了如何用VBS脚本收集远程计算机或本地计算机安装的软件,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下...2021-02-23
- 因为测试中需要读取一批URL数据进行浏览,为了方便使用txt保存配置url,另外脚本之家特为大家补充了比较好的配置读取脚本,需要的朋友可以参考一下...2020-06-30
- 这篇文章主要介绍了vbs ping实现的两种方式,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-06-30
- VBS一键配置VOIP脚本代码,其中包括VBS操作JS网页中的按钮事件--直接执行确认按钮中的脚本代码,需要的朋友可以参考下...2020-06-30
- 在网上找了很多IIS日志分析工具,功能实在太有限,有的仅能分析百度、谷歌等搜索引擎爬虫的来访次数,远远达不到我们的用户的需求...2020-12-08
- 这篇文章主要介绍了VBS定时执行idea程序的Testng文件的方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-06-30