推薦的一篇用多種腳本清理iis日志的代碼

更新時(shí)間：2008年06月23日 20:17:28 作者：

專題名稱：IIS日志清理專題,CMD版,VBS版,JS版,WSH版

有時(shí)我拿到別人的代碼時(shí)我得寫一堆東西來測(cè)試，現(xiàn)在這個(gè)如果讓您去測(cè)試的話，您不會(huì)直接在服務(wù)器上測(cè)試吧，所以，以下再貼出本人柳永法的測(cè)試腳本，主要是在D盤生成一個(gè)測(cè)試文件夾，及一些IIS測(cè)試日志文件，

IIS日志清理之IIS日志生成系統(tǒng)(CreateIISLog.vbs)：

'IIS日志清理之IIS日志生成系統(tǒng)(CreateIISLog.vbs)
'創(chuàng)建文件夾
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
'創(chuàng)建文件
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日志生成系統(tǒng)(CreateIISLog.vbs)

復(fù)制代碼代碼如下:

'創(chuàng)建文件夾  
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  
'創(chuàng)建文件  
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 