IIS日志清理WSH版代码(DelIISLog.wsf)：
复制代码 代码如下:

<job id="IIS日志清理WSH版代码(DelIISLog.wsf)">
<script language="vbscript">
'作者：柳永法(yongfa365)'Blog
'修改：2007-11-15
'操作说明：此文件只能清除一天的日志，得使用计划任务让其每天执行一次，因为服务器上一般都禁用WScript.Shell,所以不推荐使用
Function DelIISLog(IISLogPath,beforedays)
d=Now-beforedays
If Right(IISLogPath,1) <> "\" Then IISLogPath=IISLogPath & "\"
p= IISLogPath & "ex" & Right(Year(d),2) & Right("0" & Month(d),2) & Right("0" & Day(d),2) & ".Log"
Set WshShell = WScript.CreateObject("WScript.Shell")
wscript.echo p
WshShell.Run ("cmd.exe /c del /s " & p)
Set WshShell = Nothing
End Function
DelIISLog "D:\IISLogTest",2
</script>
</job>

有时我拿到别人的代码时我得写一堆东西来测试，现在这个如果让您去测试的话，您不会直接在服务器上测试吧，所以，以下再贴出本人柳永法的测试脚本，主要是在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

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