vbscript logparser的ISA2004 Web流量报告
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 很喜欢这里的学习气氛，也很佩服两位版主的技术水平，希望能够在这里与大家多多交流。 作为见面礼吧，把前一阵子写的一个生成ISA 2004 Web 流量报告的脚本与大家分享。说明下，该校本是首发而且仅发在这里，我没有在菊花里面或任何地方发过。大家可以随意更改脚本以便适合你的要求，转载请保留作者信息谢谢。 我的很多客户希望能够每天或每周得到一份员工浏览Web情况的报告，例如所访问的站点以及流量等等，他们都使用ISA2004作为web proxy。由于ISA2004自带的report不能满足他们的要求，所以我写了这个脚本，用来生成报告。使用前请先阅读readme.txt 复制代码 代码如下: ''ISA 2004 Web Log Query Tool ''Created by mwpq ''Version 1.0 ''Date 2007.9.18 On Error Resume Next Dim startdate, enddate Dim topweb, topuser,usertop, usertopweb ''Configuration part of the script ''================================================================== startdate = 1 '' the newest log files to be queried. 1 means one day ago interday = 7 '' the oldest log files is startdate + interday '' For example startdate =1, interday =7 means script will query log files between 8 days ago and yesterday''s. topweb="Top 20" '' List Top 20 Websites visited. Just change 20 to other No to get what you want like "top 21" will list top 21 websites. topuser="Top 10" '' List Top 10 users and their total usage. Usertop = "Top 20" '' List Top 20 Users with their top websites, depend on uesrtopweb. set to "" to list all users web usage usertopweb = "Top 10" sMailTo = "mwpq@yahoo.com" ''Send email repor to sMailFrom = "admin@yourdomain.com ''Email comes from sMailSub = "ISA Web Traffic Report" ''Email Title sSMTPServer = "youremailserver" ''Email server strMessage = "Please see attachment for the ISA Web Traffic Report." ''Email txt body. satt = "C:\Program Files\Microsoft ISA Server\ISALogs\report.htm" ''Email attachment path. The report.htm will be created under ISA''s log folder. ''=================================================================== Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing", _ cdoSendUsingPort = 2, _ cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" ''Create the html reprot and write the html header ''================================================================================================================= Const BEGIN_TABLE = " <TABLE width=100% BORDER=0 CELLSPACING=1 CELLPADDING=2>" Const END_TABLE = " </TABLE>" Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.FileExists(".\report.htm") Then oFSO.Deletefile(".\report.htm") End If If oFSO.FileExists(".\tempsum.w3c") Then oFSO.Deletefile(".\tempsum.w3c") End If Set oFile = oFSO.OpenTextFile(".\report.htm", ForWriting, True, true) ''Write the HTML head to file suit for IE viewer. oFile.writeline ("<HTML>" & vbcrlf & _ "<HEAD>" & vbcrlf & _ "<TITLE> ISA Web Usage Reports</TITLE>" & VbCrLf & _ "<style type=""text/css"">" & vbcrlf) oFile.writeline ("<!--" & vbcrlf & _ ".Title {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold; color:''#0000cc''}" & vbcrlf & _ ".head {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 14px; font-weight: bold; color:''#ffffff''}" & vbcrlf & _ ".category {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; color:''#ffffff''}" & vbcrlf & _ ".result {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color:''#000000''}" & vbcrlf & _ ".alert {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; color:''#ff0000''}" & vbcrlf & _ "a {color: ''#000066''; text-decoration:none;}" & vbcrlf & _ "a:hover {text-decoration:underline}" & vbcrlf & _ "-->" & vbcrlf) oFile.writeline ("</style>" & VbCrLf & _ "</HEAD>" & VbCrLf & _ "<body bgcolor=#ffffff>" & VbCrLf) oFile.writeline "<p class = Title> ISA Web Traffic Report - From "&date-startdate-interday&" to "&date-startdate oFile.writeline "<p>" ''================================================================================================================= ''End of create html report header part ''build the log file name list spath = "" while interday >= 0 dtmDate = date - startdate - interday ''Convert the current Date to UTC ''================================================================================================================= strDay = Day(dtmDate) If Len(strDay) < 2 Then strDay = "0" & strDay End If strMonth = Month(dtmDate) If Len(strMonth) < 2 Then strMonth = "0" & strMonth End If strYear = Year(dtmDate) sdate = strYear & strMonth & strDay ''================================================================================================================= stemp2 = "''"&"ISALOG_"&sdate&"_WEB_* "&"''" spath = spath & stemp2 if interday - startday > 0 then spath = spath&", " end if interday = interday - 1 wend ''Create a temp sumary file set objLogParser = CreateObject("MSUtil.LogQuery") Set objInputFormat = _ CreateObject("MSUtil.LogQuery.W3CInputFormat") SET w3cOutputFormat = WScript.CreateObject("MSUtil.LogQuery.W3COutputFormat") w3cOutputFormat.filemode = 1 '' Set file to overwrite mode strQuery = "SELECT cs-username, r-host, Sum(add(cs-bytes,sc-bytes)) as SRdata into ''tempsum.w3c'' FROM "&spath&" where sc-Network = ''External'' group by cs-username,r-host order by SRdata DESC" objLogParser.Executebatch strQuery, objInputFormat,w3cOutputFormat ''check tempsum.w3c existed Set oFSO1 = CreateObject("Scripting.FileSystemObject") If oFSO1.FileExists(".\tempsum.w3c") Then oFSO1 = nothing else oFSO1=nothing wscript.echo "Sorry cannot find some of the log files to query! Script Quit." wscript.quit End If ''Generate report based on temp file. ''================================================================================ ''Generate top web sites. fl=0 oFile.writeline (BEGIN_TABLE & VbCrLf) mWHeading topweb&" Websites" mWBRow mWTitle "Site Name" mWTitle "Traffic (MB)" mWERow set objLogParser10 = CreateObject("MSUtil.LogQuery") Set objInputFormat10 = _ CreateObject("MSUtil.LogQuery.W3CInputFormat") ''objInputFormat.recurse = 2 strQuery10 = "SELECT "&topweb&" r-host, sum(SRdata) as TSRData FROM ''tempsum.w3c'' group by r-host order by TSRdata DESC" Set objRecordSet10 = objLogParser10.Execute(strQuery10, objInputFormat10) Do While Not objRecordSet10.AtEnd Set objRecord10 = objRecordSet10.GetRecord if fl = 0 then mWBRow mWDetail2 objRecord10.GetValue("r-host") mwDetail2 FormatNumber(objRecord10.GetValue("TSRdata")/1048576,2) mWERow fl=1 else mWBRow mWDetail1 objRecord10.GetValue("r-host") mwDetail1 FormatNumber(objRecord10.GetValue("TSRdata")/1048576,2) mWERow fl=0 end if ''wscript.echo "uri"& objRecord2.GetValue("r-host") & "---" & objRecord2.GetValue("SRdata") objRecordSet10.MoveNext Loop spacer(12) oFile.writeline (END_TABLE & VbCrLf) ''================================================================================ ''================================================================================ ''Generate top user list. fl=0 oFile.writeline (BEGIN_TABLE & VbCrLf) mWHeading topuser&" Users list" mWBRow mWTitle "logon Name" mWTitle "Traffic (MB)" mWERow set objLogParser11 = CreateObject("MSUtil.LogQuery") Set objInputFormat11 = _ CreateObject("MSUtil.LogQuery.W3CInputFormat") ''objInputFormat.recurse = 2 strQuery11 = "SELECT "&topuser&" cs-username, Sum(SRdata) as TSRdata FROM ''tempsum.w3c'' group by cs-username order by TSRdata DESC" Set objRecordSet11 = objLogParser11.Execute(strQuery11, objInputFormat11) Do While Not objRecordSet11.AtEnd Set objRecord11 = objRecordSet11.GetRecord if fl=0 then mWBRow mWDetail2 objRecord11.GetValue("cs-username") mwDetail2 FormatNumber(objRecord11.GetValue("TSRdata")/1048576,2) mWERow fl =1 else mWBRow mWDetail1 objRecord11.GetValue("cs-username") mwDetail1 FormatNumber(objRecord11.GetValue("TSRdata")/1048576,2) mWERow fl =0 end if ''wscript.echo "uri"& objRecord2.GetValue("r-host") & "---" & objRecord2.GetValue("SRdata") objRecordSet11.MoveNext Loop spacer(12) oFile.writeline (END_TABLE & VbCrLf) ''================================================================================ set objLogParser1 = CreateObject("MSUtil.LogQuery") Set objInputFormat1 = _ CreateObject("MSUtil.LogQuery.W3CInputFormat") strQuery1 = "SELECT "&usertop&" cs-username, Sum(SRdata) as TSRdata FROM ''tempsum.w3c'' group by cs-username order by TSRdata DESC" Set objRecordSet1 = objLogParser1.Execute(strQuery1, objInputFormat1) oFile.writeline (BEGIN_TABLE & VbCrLf) mWHeading usertop&" Users'' Web Traffic " Do While Not objRecordSet1.AtEnd Set objRecord1 = objRecordSet1.GetRecord strUsername = objRecord1.GetValue("cs-username") stt = "''"&strUsername&"''" mWBRow mWTitle strUsername &" ------ Total Web Traffic: " & FormatNumber(objRecord1.GetValue("TSRdata")/1048576,2)&" MB" mWTitle "Traffic (MB)" mWERow ''Wscript.echo "" ''wscript.echo stt &" >>> data: " & objRecord1.GetValue("TSRdata") set objLogParser2 = CreateObject("MSUtil.LogQuery") Set objInputFormat2 = _ CreateObject("MSUtil.LogQuery.W3CInputFormat") ''objInputFormat.recurse = 2 fl=0 strQuery2 = "SELECT "&usertopweb&" r-host, SRdata FROM ''tempsum.w3c'' where cs-username =" &stt&" group by r-host,SRdata" Set objRecordSet2 = objLogParser2.Execute(strQuery2, objInputFormat2) Do While Not objRecordSet2.AtEnd Set objRecord2 = objRecordSet2.GetRecord if fl=0 then mWBRow mWDetail2 objRecord2.GetValue("r-host") mwDetail2 FormatNumber(objRecord2.GetValue("SRdata")/1048576,2) mWERow fl=1 else mWBRow mWDetail1 objRecord2.GetValue("r-host") mwDetail1 FormatNumber(objRecord2.GetValue("SRdata")/1048576,2) mWERow fl=0 end if ''wscript.echo "uri"& objRecord2.GetValue("r-host") & "---" & objRecord2.GetValue("SRdata") objRecordSet2.MoveNext Loop objRecordSet1.MoveNext spacer(12) Loop oFile.writeline (END_TABLE & VbCrLf) '' Write the html end to report. oFile.WriteLine ("</body>") oFile.WriteLine ("</html>") oFile.Close ''Methods to create html(title and table) part ''================================================================================================================= Private Sub mWHeading(sHeading) oFile.writeline ( _ " <tr>" & vbCrLf & _ " <td colspan=7 bgcolor=#0099cc class=head>" & sHeading &"</td>"& vbCrLf & _ " </tr>" & VbCrLf) End Sub Private Sub mWTitle(sContent) oFile.writeline ( _ " <TD bgcolor=#0099ff align=left class=category height=14>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWDetail1(sContent) oFile.writeline ( _ " <TD bgcolor=#dce3fc align=left class=result height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWDetail2(sContent) oFile.writeline ( _ " <TD bgcolor=#e9fbfe align=left class=result height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWAlert1(sContent) oFile.writeline ( _ " <TD bgcolor=#dce3fc align=left class=alert height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWAlert2(sContent) oFile.writeline ( _ " <TD bgcolor=#e9fbfe align=left class=alert height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWBRow oFile.writeline ( " <tr>" & VbCrLf) End Sub Private Sub mWERow oFile.writeline ( " </tr>" & VbCrLf) End Sub Private Sub spacer(iHeight) oFile.writeline ( _ " <tr><td height=" & iHeight & "></td></tr>" & VbCrLf) End Sub ''================================================================================================================= ''End of create html method ''Send email Dim iMsg, iConf, Flds ''// Create the CDO connections. Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ''// SMTP server configuration. With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort ''// Set the SMTP server address here. .Item(cdoSMTPServer) = sSMTPServer .Update End With ''// Set the message properties. With iMsg Set .Configuration = iConf .To = sMailTo .From = sMailFrom .Subject = sMailSub .TextBody = strMessage End With ''iMsg.HTMLBody = sMailMessage ''// Send the message. iMsg.AddAttachment satt iMsg.Send '' send the message. Set iMsg = Nothing Set iConf = Nothing |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbscript logparser的ISA2004 Web流量报告的所有评论
