IIS日志自动删除程序bat和vbs代码

君行天下

很多使用Windows IIS的站长可能都会遇到这个问题，就是服务器的IIS日志增长经常会导致磁盘空间被占满，而IIS也没有自动删除日志的功能，因此需要经常关注即时清理日志，因此我这里就介绍一个能够自动删除IIS日志的程序。

　　这个删除程序的功能很简单，每天自动删除N天前的日志（时间根据情况自己设置，一般设置为30天），可以使用DOS批处理或VBS脚本来实现。

　　在下边的解决方案里请大家可以选择适合自己的，总体设计思路是这样的：

　　IIS日志文件的格式是：ex年月日.log 比如：ex071116.log

　　IIS日志文件存储位置：默认情况下是在：%windir%\system32\LogFiles ,如果您使用的是专业的IIS管理软件，里面一般会让你设置相应日志目录。

　　IIS日志清理批处理版：跟据当前时间计算出前N天的日期，比如今天是:2007-11-16,前60天的日期就是2007-9-16(程序可以自动识别30天或31天或润月),然后再处理成20070916这样的格式，然后再组合成ex070916.log这样的IIS日志文件格式，这样一来我们就得到的要清理的日志文件名然后，我们再使用del /s /f d:\iislog\ex070916.log 来清除日志所在文件夹目录及子目录下的所有这个文件名的文件了，从而清除志，但这个仅仅是清除一天的日志，所以我们还得把这个批处理加到计划任务里，让它每天定时执行，这样一来，所有的计算机的日志问题我们就可以不用管了。

　　IIS日志清理VBS版：VBS版理论是没有iis版快，因为他还要借助脚本驱动，而不像cmd版直接使用dos系统的批处理功能快（猜的），VBS毕竟是高级语言，处理日期的能力用一句话就实现了，而CMD版得写半页。IIS日志清理VBS版的实现用VBS遍历IIS日志所在目录下的所有文件，及文件夹，然后取文件名组合成日期型的，然后当前日期-这个日期，看看是不是超过了设定的天数，超过的话delete,这种思路有个好处就是一次可以清除N天前的所有记录，而不是只是一天的，他可以你CMD版日志清理一样，把这个脚本写到计划任务里，天天运行，也可以过一段时间手动运行一次。这个代码明显比IIS日志清理CMD版少了。

　　IIS日志清理CMD版代码(DelIISLog.bat)代码如下:

[AppleScript] 纯文本查看 复制代码

@echo off 
title 
::设置当前日期前多少天或后多少天 
set/a beforedays=-3 
::设置目录所在位置 
set dir="F:\log\" 
::当前日期转换为天数并进行计算 
call :Date2Day %date:~0,10% days 
set/a days=%days%%beforedays% 
call :Day2Date %days% lastdate 
::计算完毕,生成想要的字符组合 
set okstr=ex%lastdate:~2,6%.log 
::删除这些文件 
del del /f /s /q %dir%\%okstr% 
cmd /k 
:Date2Day 
setlocal ENABLEEXTENSIONS 
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do ( 
set yy=%%a & set mm=%%b & set dd=%%c 
) 
set /a dd=100%dd%%%100,mm=100%mm%%%100 
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2 
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633 
endlocal&set %2=%j%&goto :EOF 
:Day2Date 
setlocal ENABLEEXTENSIONS 
set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a 
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5 
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10 
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%) 
endlocal&set %2=%yy%%mm%%dd%&goto :EOF

　　IIS日志清理VBS版代码(DelIISLog.vbs)代码如下:

'IIS日志清理VBS版代码(DelIISLog.vbs)
. V- S6 b* V0 P1 _'调用方法：DelIISLog "IIS日志所在路径",保留多少天的IIS日志
( q6 Q+ m5 c4 r: `& Z1 i+ |'遍历IIS日志文件夹下的所有文件及子文件夹下的文件
- J  R9 \- W( Y( O  b( q  aFunction DelIISLog(IISLogPath,KeepDays)
) f' H- }  m" `* X1 I( U; pon error resume next
) y1 k( U: i& wSet oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(IISLogPath)
, F! M# g( {+ d* @. @9 O& gSet oSubFolders = oFolder.SubFolders '得到该目录下所有的文件夹的集合
8 _1 u& y) N4 _+ Y6 ?4 @Set oFiles = oFolder.Files '得到该目录下所有的文件的集合
'第一步处理当前目录下的所有文件
$ j2 x2 A0 v9 }6 B; i. AFor Each oFile In oFiles '遍历所有文件
if right(oFile.name,3)="log" then
/ y, [' `. q: C6 U. `: o$ E- `oDate=cdate("20" & mid(oFile.name,3,2) & "-" & mid(oFile.name,5,2) & "-" & mid(oFile.name,7,2))
if date-oDate > KeepDays then oFile.delete '判断是不是要处理的IIS日志文件，如果是的话直接删除
7 Q% s) T/ }+ ]" E7 Nend if
* b% |7 h+ d4 B0 i, y* h( ~Next
'第二步处理当前目录下的所有目录，进行递归调用
For Each oSubFolder In oSubFolders
: E: z! B$ W5 e. s% Y+ YDelIISLog oSubFolder.Path,KeepDays '递归
Next
End Function
DelIISLog "D:\IISLogTest",20 '遍历