Script para retirar os utilizadores dos logs dos ISAS agrupados por número de hits num dia.

Este script necessita de ter o logparser instalado. Ou no minimo a sua DLL registada.

Caminho onde está o Log: “E:\ISALOG~1\”
Nome dos Ficheiros têm de começar por: “ISALOG_”

' -----------------------------------------------'
' LogParser.vbs
' Script lê o conteudo do logs do ISA e coloca-os num ficheiroL.
' Autor Hugo Jorge Fernandes Rodrigues
' Versão 1.0 - 21 Setembro 2011 - Retira os utilizadores com mais hits por dia
'
'
' -----------------------------------------------'
 
Set oLogQuery = createobject("MSUtil.LogQuery")
Set oInput = createobject("MSUtil.logquery.W3CInputformat")
Set oOutput = createobject("MSUtil.logquery.CSVOutputFormat")


Dim DataInicial
Dim DataFinal
Dim LogPath
Dim sLogName
Dim sLogFileName
Dim UserName
Dim strDiaInicial

Dim strMesInicial
Dim strAnoInicial
 
DataInicial = InputBox ("Qual a data Inicial para pesquisa. Formato: DD-MM-AAAA","Dia Inicio", date())


DataFinal = InputBox ("Qual a data de fim da pesquisa. Formato: DD-MM-AAAA","Dia de FIM", date())

Datafinal = CDate(datafinal)
Datainicial = CDate(dataInicial)


do while datainicial <= datafinal
strDiaInicial = DatePart("d",DataInicial)
if len(strDiaInicial) <2 then
strDiaInicial = "0" & strDiaInicial
end if
strMesInicial = cstr(DatePart("m",DataInicial))
if len(strMesInicial) <2 then
strMesInicial = "0" & strMesInicial
end if
strAnoInicial = cstr(DatePart("yyyy",DataInicial))
sLogFileName = strAnoInicial & strMesInicial & strDiaInicial
LogPath = "E:\ISALOG~1\"
sLogName = "ISALOG_" & sLogFileName & "*.w3c"
strsqlbyIPAddress = "Select count(cs-username) as UserCount, cs-username INTO e:\LogParser\" & sLogFileName & ".csv FROM " & logPath & sLogName & " Group by cs-username"
oLogQuery.ExecuteBatch strsqlbyIPAddress, oInput, oOutput
datainicial = DateAdd("d",1,datainicial)
loop

MsgBox("FIM")