推荐的一篇用多种脚本清理iis日志的代码

有时我拿到别人的代码时我得写一堆东西来测试，现在这个如果让您去测试的话，您不会直接在服务器上测试吧，所以，以下再贴出本人柳永法的测试脚本，主要是在D盘生成一个测试文件夹，及一些IIS测试日志文件，

IIS日志清理之IIS日志生成系统(CreateIISLog.vbs)：

'IIS日志清理之IIS日志生成系统(CreateIISLog.vbs) 
'创建文件夹   
Function CreateFolder(Folder)   
    On Error Resume Next  
    Set FSO = CreateObject("Scripting.FileSystemObject")   
    FSO.CreateFolder(Folder)   
    If Err>0 Then  
        Err.Clear  
        CreateFolder = False  
    Else  
        CreateFolder = True  
    End If  
End Function  
'创建文件   
Function CreateFile(FileName, Content)   
    On Error Resume Next  
    Set FSO = CreateObject("Scripting.FileSystemObject")   
    Set fd = FSO.CreateTextFile(FileName, True)   
    fd.WriteLine Content   
    If Err>0 Then  
        Err.Clear  
        CreateFile = False  
    Else  
        CreateFile = True  
    End If  
End Function  

  
CreateFolder "D:\IISLogTest"  
CreateFolder "D:\IISLogTest\IISLogs001"  
CreateFolder "D:\IISLogTest\IISLogs002"  
CreateFolder "D:\IISLogTest\IISLogs003"  
for i=1 to 30   
    d=date-i   
    filename="ex" & right(year(d),2) & right("0" & month(d),2) & right("0" & day(d),2) & ".log"  
    CreateFile "D:\IISLogTest\" & filename,Content   
    CreateFile "D:\IISLogTest\IISLogs001\" & filename,Content   
    CreateFile "D:\IISLogTest\IISLogs002\" & filename,Content   
    CreateFile "D:\IISLogTest\IISLogs003\" & filename,Content   
next  

'IIS日志清理之IIS日志生成系统(CreateIISLog.vbs)  

后记：这个方法不仅可以用在IIS日志处理方面，还可以用在处理Serv-U的日志处理，前提条件是Serv-U的日志文件的格式也得设成像IIS日志这样的格式ex071115.log。

最新评论