Shulou(Shulou.com)06/03 Report--

This article shares with you the content of the ISA2004 Web traffic report on how vbscript implements logparser. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

Many of my clients want to get a daily or weekly report on employees browsing Web, such as the sites they visit, traffic, and so on. They all use ISA2004 as their web proxy. Since the report that comes with ISA2004 doesn't meet their requirements, I wrote this script to generate reports. Please read readme.txt before using it.

The copy code is as follows:

'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 = ""

Const END_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 ("" & vbcrlf & _

"& vbcrlf & _

"ISA Web Usage Reports" & VbCrLf & _

"" & vbcrlf)

OFile.writeline ("" & vbcrlf)

OFile.writeline ("" & VbCrLf & _

"& VbCrLf & _

"" & VbCrLf)

OFile.writeline "ISA Web Traffic Report-From" & date-startdate-interday& "to" & date-startdate

OFile.writeline "

"

'=

'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

MWERow

Fl=1

Else

MWBRow

MWDetail1 objRecord10.GetValue ("r-host")

MwDetail1 FormatNumber (objRecord10.GetValue ("TSRdata") / 1048576

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

MWERow

Fl = 1

Else

MWBRow

MWDetail1 objRecord11.GetValue ("cs-username")

MwDetail1 FormatNumber (objRecord11.GetValue ("TSRdata") / 1048576

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 MB) & "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& "rMurray hostforme SRdata FROM 'tempsum.w3c' where cs-username =" & stt& "group by rMurstrecoverSRdata"

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

MWERow

Fl=1

Else

MWBRow

MWDetail1 objRecord2.GetValue ("r-host")

MwDetail1 FormatNumber (objRecord2.GetValue ("SRdata") / 1048576

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 ("")

OFile.WriteLine ("")

OFile.Close

'Methods to create html (title and table) part

'=

Private Sub mWHeading (sHeading)

OFile.writeline (_

"& vbCrLf & _

"& sHeading &" & vbCrLf & _

"" & VbCrLf)

End Sub

Private Sub mWTitle (sContent)

OFile.writeline (_

"& sContent &" & VbCrLf)

End Sub

Private Sub mWDetail1 (sContent)

OFile.writeline (_

"& sContent &" & VbCrLf)

End Sub

Private Sub mWDetail2 (sContent)

OFile.writeline (_

"& sContent &" & VbCrLf)

End Sub

Private Sub mWAlert1 (sContent)

OFile.writeline (_

"& sContent &" & VbCrLf)

End Sub

Private Sub mWAlert2 (sContent)

OFile.writeline (_

"& sContent &" & VbCrLf)

End Sub

Private Sub mWBRow

OFile.writeline ("" & VbCrLf)

End Sub

Private Sub mWERow

OFile.writeline ("" & VbCrLf)

End Sub

Private Sub spacer (iHeight)

OFile.writeline (_

"" & 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

Thank you for reading! This is the end of the article on "ISA2004 Web Traffic report on how vbscript implements logparser". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it out for more people to see!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.