|
实例代码:
IIS日志清理CMD版代码(DelIISLog.cmd):
以下是引用片段:
@echo off
title Made by www.yongfa365.com
::设置当前日期前多少天或后多少天
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) Made by www.yongfa365.com
’调用方法:DelIISLog "IIS日志所在路径",保留多少天的IIS日志
’遍历IIS日志文件夹下的所有文件及子文件夹下的文件
Function DelIISLog(IISLogPath,KeepDays)
on error resume next
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(IISLogPath)
Set oSubFolders = oFolder.SubFolders ’得到该目录下所有的文件夹的集合
Set oFiles = oFolder.Files ’得到该目录下所有的文件的集合
’第一步处理当前目录下的所有文件
For Each oFile In oFiles ’遍历所有文件
if right(oFile.name,3)="log" then
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日志文件,如果是的话直接删除
end if
Next
’第二步处理当前目录下的所有目录,进行递归调用
For Each oSubFolder In oSubFolders
DelIISLog oSubFolder.Path,KeepDays ’递归
Next
End Function
DelIISLog "D:\IISLogTest",20 ’遍历
IIS日志清理JS版代码(DelIISLog.js):
| 以下是引用片段: //IIS日志清理JS版代码(DelIISLog.js) Made by www.yongfa365.com //调用方法:DelIISLog("IIS日志所在路径",保留多少天的IIS日志); //遍历IIS日志文件夹下的所有文件及子文件夹下的文件 function DelIISLog(IISLogPath,KeepDays){ var fso = new ActiveXObject("Scripting.FileSystemObject"); var f = fso.GetFolder(IISLogPath); var Folders = new Enumerator(f.SubFolders); //得到该目录下所有的文件夹的集合 var Files = new Enumerator(f.Files); //得到该目录下所有的文件的集合 //第一步处理当前目录下的所有文件 for (; !Files.atEnd(); Files.moveNext()) { var fileName = Files.item().name; var year = "20" + fileName.substr(2, 2); var mouth = fileName.substr(4, 2); var day = fileName.substr(6, 2); var days = Math.round(((new Date()).getTime() - Date.UTC(year, mouth - 1, day)) / 1000 / 60 / 60 / 24); if (days > KeepDays) Files.item().Delete(); //判断是不是要处理的IIS日志文件,如果是的话直接删除 } //第二步处理当前目录下的所有目录,进行递归调用 for (; !Folders.atEnd(); Folders.moveNext()) { DelIISLog(Folders.item(),KeepDays); } } //调用函数,比如:"F:\\log",5 或 "C:\\windows\\system32\\LogFiles",5 DelIISLog("D:\\IISLogTest",2); |
| 强悍挂马工具:IIS_AD IIS扩展(附 | 05-04 |
| Real Player rmoc3260.dll Activ | 04-04 |
| Real Player rmoc3260.dll Activ | 04-03 |
| Pangolin号称很牛的注入工具 | 03-25 |
| 仿FirePack网马管理系统fsploit | 03-01 |
| 机器狗生成器 | 02-26 |
| Serv-U 6.X 提权脚本 | 01-31 |
| 入侵工具Knark的分析及防范 | 01-14 |
| 如何使用Nikto漏洞扫描工具检测网 | 12-21 |
| 十三WEBSHELL终结版后门的去除过 | 12-14 |
| hijack(红狼安全小组原创作品 - | 11-29 |
| 高级内网渗透工具:Paris (创建VP | 11-01 |