IISLog

Jeg ønsker at læse logfilerne fra IIS med IISLog komponenten i en given periode ind i en database.

Når jeg udfører nedenstående vb6 kode, så belastes processeren 100% og der sker ikke yderligere.

Jeg har tidligere brugt lignende kode i vbscript med succes.

Nogen forslag?
Martin


Public Sub ImportLog()
    On Error GoTo ErrorHandler

    Dim ls As Date
    Dim le As Date
    Dim d As Date
    Dim s As String
    Dim ou
    Set ou = CreateObject("MSWC.IISLOG")
    ls = GetLogEnd()
    le = DateAdd("s", -1, Now)
    For i = 0 To DateDiff("d", ls, le)
        d = DateAdd("d", i, ls)
        s = "c:\winnt\system32\logfiles\w3svc1\ex" & formatlogname(d) & ".log"
        If reportfilestatus(s) Then
            ou.OpenLogFile s, 1, "W3SVC", 1, ""
            ou.ReadFilter ls, le
            Do While Not ou.AtEndOfLog
                ou.ReadLogRecord
            Loop
            ou.CloseLogFiles (ForReading)
        End If
    Next
   
ErrorHandler:
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
    Err.Clear
End Sub