Top URLs einer Woche

[Arthag 10]

Hallo zusammen,

zuerst muss ich sagen, dass ich mich im Moment in der Ausbildung zum Fachinformatiker Systemintegration befinde und wir in der Berufsschule im Fach Anwendungsentwicklung gerade Scripting durchnehmen.

Wir haben bisher 2 Doppelstunden zu dem Thema gemacht und haben nun Aufgaben bekommen, die wir mittels vbs Skripten lösen sollen.

 

Meine Aufgabe ist es ein Skript zu schreiben, dass jede Woche eine Statistikmail mit den Top URLs der Woche erstellt und versendet.

Als Grundlage dafür gibt es einen ISA Server, der ja über eine entsprechende Log Funktion verfügt.

 

Die Email ist auch kein Problem, dass habe ich ohne weiteres hinbekommen, aber wie ich die Log dateien des ISA Servers auswerte, so dass ich im Endeffekt die am meisten besuchten Webseiten einer Woche aufgelistet bekomme entzieht sich meiner Kenntnis.

 

Vielleicht hat ja hier jemand eine Idee, wie man das Ganze lösen kann oder ein ähnliches Skript, an dem ich mich orientieren kann.

 

Ich hoffe jemand kann mir weiterhelfen.

[Cybquest 36]

Wie man per Script an die Log's kommt, kann ich Dir leider nicht sagen.

Aber als "Google-Hilfe": Zugriff auf den ISA bekommt man über das FPC.root Object...

[grizzly999 11]

Suche mal im google nach

 

ISA_LogParser.vbs

 

 

Ansonsten schaue noch nach auf:

hwww.isascripts.org

Jim Harrison's ISA Tools Repository

 

grizzly999

[NilsK 2.934]

Moin,

 

für solche Aufgaben empfiehlt sich Microsofts kostenloser Log Parser, der auch eine Scripting-Schnittstelle hat. Er bringt auch gleich umfangreiche Statistik-Funktionen mit und kann sogar Diagramme erzeugen.

 

.: www.kaczenski.de :.

 

Gruß, Nils

[Cybquest 36]

@NilsK

Wenn ich den TO richtig verstanden hab, sucht er nicht ein Tool um das Problem zu lösen (der ISA kann ja solche Reports selber generieren!).

Er soll doch speziell eine Aufgabe mit vbs lösen.

Oder seh ich das falsch? ;)

[NilsK 2.934]

Moin,

 

das kann wohl nur der TO wirklich beantworten. ;)

Da aber der Log Parser über ein Scripting-Interface verfügt, kann er die Aufgabe ja so per VBS lösen - aus meiner Sicht sogar in einer recht pfiffigen Variante.

 

Gruß, Nils

der so gern das letzte Wort hat :cool:

[Arthag 10]

Erstmal vielen Dank für die Antworten.

Habe jetzt mit den COM Objekten ein wenig experimentiert und bin auf folgendes Script gekommen

Dim ISA
Dim FilterExpressions		'FpcFilterExpressions collection
Dim LogViewer				'FpcLogViewer object
Dim Ergebnisse				'Ergebnisse

Const MaxRecords 				= 2000	'max number of Records to return 

	'****************************************************************
'step 1: create the correct ISA Object
'
Set ISA = CreateObject( "Fpc.Root" )

'****************************************************************
'step 2: get the correct LogViewer Object context
'
Set LogViewer = ISA.GetContainingArray.LogViewer.LogContentMSDE

'****************************************************************
'step 3: create the FilterExpressions Object
'
Set FilterExpressions = CreateObject( "Fpc.FpcFilterExpressions" )

'****************************************************************
'step 4: MUST tell FilterExpressions where to search
'
FilterExpressions.FilterType = FpcLogViewerFilter

'****************************************************************
'step 5: construct the log query
'
SetupQuery FilterExpressions 

'****************************************************************
'step 6: execute the log query
' Führt die Abfrage aus mit maximal 2000 Einträgen
LogViewer.ExecuteQuery FilterExpressions, MaxRecords

'****************************************************************
'step 7: use the results
'
  ErgebnisseAnzeigen LogViewer 
'WScript.Echo vbCrLf & "We requested " 

'****************************************************************
'step 8: end the log query
'Beendet die Abfrage
LogViewer.EndQuery


'Setzt den Filter zusammen
'Hier nur ein Filter 
'*******************************************************************
Sub SetupQuery ( ExpressionList )

 ExpressionList.AddDateFilter FpcFilterByUrl, FpcLast7days, StartDate

 If Err.number <> S_OK Then _
  Panic "Error 0x" & Hex( Err.number ) & " '" & _
		Err.Description & "' encountered while setting the filters."

 On Error Goto 0

End Sub


'********************************************************************
' Display the query results
'********************************************************************
Sub ErgebnisseAnzeigen ( LogEntries )

'On Error Resume Next

Dim Index					'FpcLogEntries counter
Dim LogEntry				'FpcLogEntry object 
Dim Results					'output string
Dim	LogCode					'ResultsCode interpreter


Index = 0
 'Ausgabe'
WScript.Echo vbCrLf & "Here are the query results ..." & vbCrLf
'Durchlaufen der Ergebniseinträge im Array
For Each LogEntry In LogEntries
	Index = Index + 1

	' if LogEntry.ResultCode is an hResult, the value will 
		' be less than 0 and we'll display it in hex 
	If LogEntry.ResultCode < 0 Then
		LogCode = "0x" & Hex( LogEntry.ResultCode )
	Else
		LogCode = LogEntry.ResultCode
	End If


	If LogEntry.URL <> "" Then _
		Results = Results & vbCrLf & vbTab & LogEntry.URL
	If LogEntry.FilterInformation <> "" Then _
		Results = Results & "  " & LogEntry.FilterInformation


	WScript.Echo Results
Next

On Error Goto 0

End Sub



'****************************************************************
' misc filter values 
'
Const StartDate							= "9/17/2008"

 

Ich erhalte beim Ausführen einen Fehler in Zeile 55 direkt beim ersten Zeichen.

"ExpressionList.AddDateFilter FpcFilterByUrl, FpcLast7days, StartDate"

Kann mir jemand sagen warum?

 

Achso zu dem Log Parser:

Es wäre schön, wenn ich um den Parser herumkäme, das sollte höchstens eine Notlösung sein.

[Cybquest 36]

Ich würde sagen, in VBS funktionieren möglicherweise die ganzen eingebauten Konstanten "FpcLogViewerFilter", "FpcFilterByURL" ... usw. nicht.

Müssten ggf. vorher definiert werden.

 

Schau mal hier:

http://technet.microsoft.com/en-us/library/cc302446.aspx

[Arthag 10]

Ok den Fehler habe ich gefunden, aber leider bringt es mir nichts, da ich so gar nicht auf die Berichte, Logs zugreife, sondern die Abfragen für die Überwachung steuern kann.

 

Nur so kann ich nicht die am meisten besuchten Homepages rausfinden oder geht das über die Überwachungsfunktion?

 

Hat noch jemand eine Idee, außer den Logparser zu nutzen?