Arthag

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?

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.

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.