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)
          strDiaInicial = "0" & strDiaInicial
     end if
     strMesInicial = cstr(DatePart("m",DataInicial))
     if len(strMesInicial)
         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")

Leave a Reply Cancel reply