[IIS5.0] Logs opruimen

[GrimaceODespair]

Op deze Google en GoT ik me nou al een uurtje stuk (en mijn noob-gevoel stijgt per minuut), so last resort: new topic.

Bestaat er een standaard manier om je IIS logs op de server op te ruimen? Dat wil zeggen: alles verwijderen wat op het moment niet in gebruik is?

Ik heb de indruk dat ik iets verkeerd doe, want dit leek mij een hele triviale vraag totdat ik nu dus al een uur bezig was met zoeken. Ik weet ook wel dat ik zelf een batch of een script kan schrijven, maar dat is niet wat ik zoek (hoewel suggesties natuurlijk welkom zijn).

Ik heb de log dir al doorzocht op datum, maar als ik de gevonden logs vanuit het Search venster met meerdere tegelijk wil verwijderen, krijg ik "cannot read from the source file or disk" (eentje per keer lukt wel). Dus ik zoek 'een standaard manier', whatever that may be. Via IIS zelf lijkt het iig niet te kunnen...

[momania]

Windows Operated Systems >> Software Algemeen

[SYPHAX]

Deze gebruik ik altijd. Opslaan als vbs en runnen

code:

Option Explicit

Dim intDaysOld, strObjTopFolderPath, strLogFIleSuffix, ObjFS, ObjTopFolder 
Dim ObjDomainFolder, ObjW3SvcFolder, ObjSubFolder, ObjLogFile, ObjFile

intDaysOld          = 62
strObjTopFolderPath = "D:\Log Files"
strLogFIleSuffix    = ".log"
'Assumes folder structure is like the following:
' x:\TopFolder\
'              whatever.com\
'                           w3svcX\
'                                  ex020101.log

Set ObjFS = CreateObject("Scripting.FileSystemObject")
Set ObjTopFolder = ObjFS.GetFolder(strObjTopFolderPath)

For Each ObjDomainFolder in ObjTopFolder.SubFolders
    For Each ObjW3SvcFolder in ObjDomainFolder.SubFolders
        Set ObjSubFolder = ObjFS.GetFolder(ObjW3SvcFolder)
            For each ObjLogFile in ObjSubFolder.files
                Set ObjFile = ObjFS.GetFile(ObjLogFile)
                If datediff("d",ObjFile.DateLastModified,Date()) > intDaysOld and lcase(right(ObjLogFile,4))=strLogFIleSuffix then
                    '*****************************************************
                    'DON'T UNCOMMENT THIS UNTIL YOU KNOW IT WORKS PROPERLY!!!
                    'WScript.Echo("Will delete " & ObjSubFolder.name & "\" & ObjFile.name)
                    ObjFile.Delete
                    '*****************************************************
                End If
                Set ObjFile = nothing
            Next
        Set ObjSubFolder = nothing
    Next
Next

Set ObjTopFolder = nothing
Set ObjFS = nothing

[GrimaceODespair]

Hmm, kan ik natuurlijk wel iets mee, maar als het op scripten aankomt, kan ik om het even wat verzinnen. Vraag me af wat systeembeheerders die niet kunnen scripten, met dit probleem moeten doen. Maar misschien hebben die ook wel echte beheertools