您的位置: 首页  >  文章  >  IIS6 日志删除脚本(t00ls)

IIS6 日志删除脚本(t00ls)

分类: 文章 • 2025-01-24 11:58:17

发个很早前自己写的iis6的删除日志的vbs脚本
写这个东西的原因是网上的删除iis日志工具要么报毒（懒得做免杀），要么太暴力（直接关掉IIS服务再将日志文件整个删除，坑爹呢！？） 
后来找了下资料发现其实要删除iis6的日志没必要把iis服务停掉，只需要把日志记录的选项关掉就行了
在参考了Adsutil.vbs里面的部分代码后写了个vbs，专门用来删除iis6的日志，不用停掉iis的服务，删除时使用正则表达式匹配关键字，而且删除后再将日志文件修改时间改回原来的时间

IIS6 日志删除脚本(t00ls)

第一条列出当前IIS上面站点的详细信息：站点ID号，站点物理路径，站点的日志路径
第二条命令和第三条命令是暂停和开启指定站点的日志记录的，一般用不到。第四条命令里面已经包含这两条命令
第四条是指定站点ID号，要删除的日志文件绝对路径，要删除的日志的关键字（这里关键字使用正则表达式匹配）
一般使用第一条和第四条命令结合即可
IIS6 日志删除脚本(t00ls)

要删除IP地址是172.16.1.5在12年12月12号的访问记录：
IIS6 日志删除脚本(t00ls)


具体代码如下：

001 If WScript.Arguments.Count < 1 Then
002         Usage()
003         WScript.Quit(1)
004 End If
005  
006 Select Case UCase(WScript.Arguments.Item(0))
007         Case "LIST"
008                 Call ListWeb()
009         Case "STOPLOG"
010                 Call SetLog(WScript.Arguments.Item(1),0) '0 stop log
011         Case "STARTLOG"
012                 Call SetLog(WScript.Arguments.Item(1),1) '1 start log
013         Case "DELLOG"
014                 Call DelLog(WScript.Arguments.Item(1),WScript.Arguments.Item(2),WScript.Arguments.Item(3))
015         Case Else
016                 Call Usage()
017 End Select
018  
019 Sub Usage()
020         WScript.Echo "IIS 6 Log Deleter   By. Twi1ight" & vbCrLf
021         WScript.Echo "Usage:" & vbTab & _
022                 WScript.ScriptName & " LIST" & vbCrLf & vbTab & _
023                 WScript.ScriptName & " STARTLOG SiteID" & vbCrLf & vbTab & _
024                 WScript.ScriptName & " STOPLOG  SiteID" & vbCrLf & vbTab & _
025                 WScript.ScriptName & " DELLOG   SiteID  LogFile  KeyString" & vbCrLf & "  " & _
026                 "LIST" & vbTab & vbTab & "List all websites info" & vbCrLf & "  " & _
027                 "STARTLOG" & vbTab & "Start IIS Logging on SiteID" & vbCrLf & "  " & _
028                 "STOPLOG" & vbTab & "Stop IIS Logging on SiteID" & vbCrLf & "  " & _
029                 "DELLOG" & vbTab & "Automatical stop/start IIS log and delete log items which contains KeyString, KeyString is a Regular String"
030  
031 End Sub
032  
033 Sub CheckID(ID)
034         If Not IsNumeric(ID) Then
035                 WScript.Echo "[-] The site ID specified is not Numeric"
036                 WScript.Quit(1)
037         End If
038 End Sub
039  
040 Sub ListWeb()
041         Set ObjService=GetObject("IIS://LocalHost/W3SVC")
042         For Each obj3w In objservice
043                 If IsNumeric(obj3w.Name) Then
044                         sServerName=Obj3w.ServerComment
045                         Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")
046                         ListAllWeb = ListAllWeb & obj3w.Name & _
047                                                 String(Abs(25-Len(obj3w.Name))," ") & _
048                                                 obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf
049                         Set objLog = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name)
050                         ListAllWeb = ListAllWeb & String(25," ") & _
051                                                 "Log: " & objLog.LogFileDirectory & "\W3SVC" & obj3w.Name &vbCrLf
052                 End If
053         Next
054         WScript.Echo ListAllWeb
055         Set ObjService=Nothing
056 End Sub
057  
058 Sub SetLog(ID, value)
059         CheckID(ID)
060         str = "Start"
061         If value = 0 Then
062                 str = "Stop"
063         End If
064         Set objSite = GetObject("IIS://localhost/W3SVC/" & ID)
065         objSite.Put "LogType",value
066         objSite.SetInfo
067     If (Err.Number <> 0) Then
068                 Err.Clear
069         WScript.Echo "[-] Error Trying To " & str & " IIS Logging!"
070         Else
071                 WScript.Echo str & " IIS Logging Success!"
072     End If
073      
074 End Sub
075  
076 Sub DelLog(ID, LogFile, KeyString)
077         On Error Resume Next
078         Const ForReading = 1, ForWriting = 2, ForAppending = 8
079         'WScript.Echo "Delete Log File"
080         'Stop Log
081         Call SetLog(ID, 0)
082         WScript.Sleep 500 'wait iis to stop log otherwise will raise an exception if rewrite logfile immediately
083         Set regEx = New RegExp
084         regEx.Pattern = KeyString
085         regEx.IgnoreCase = True
086          
087         Set fso = CreateObject("Scripting.FileSystemObject")
088         'Save Last Modify Time
089         Set f = fso.GetFile(LogFile)
090         modifyDate = f.DateLastModified
091         'WScript.Echo f.DateCreated & " " & f.DateLastAccessed & " " & f.DateLastModified
092          
093         LogPath = fso.GetParentFolderName(LogFile)
094         LogName = fso.GetFileName(LogFile)
095         TempFile = fso.GetTempName
096         SrcFile = LogPath & "\" & TempFile
097  
098         'WScript.Echo TempFile
099         Call fso.CopyFile(LogFile, SrcFile)
100         Set srcLog = fso.OpenTextFile(SrcFile, ForReading, False)
101         Set dstLog = fso.OpenTextFile(LogFile, ForWriting, False)
102         Do While srcLog.AtEndOfLine <> True
103                 line = srcLog.ReadLine
104                 Set Martches = regEx.Execute(line)
105                 If Martches.Count <> 0 Then
106                         WScript.Echo " "& line 'comment out this line if don't like to display deleted log item
107                 Else
108                         dstLog.WriteLine(line)
109                 End If
110         Loop
111         srcLog.Close
112         dstLog.Close
113         fso.DeleteFile(SrcFile)
114         'Change Last Modify Time
115         Set objShell = CreateObject("Shell.Application")
116         Set objFolder = objShell.NameSpace(LogPath)
117         Set objFolderItem = objFolder.ParseName(LogName)
118         objFolderItem.ModifyDate = modifyDate
119         'WScript.Echo f.DateCreated & " " & f.DateLastAccessed & " " & f.DateLastModified
120     If (Err.Number <> 0) Then
121                 WScript.Echo "[-] Error Trying To Delete IIS Log!"
122                 Err.Clear
123     End If
124         'Start Log
125         Call SetLog(ID, 1)
126 End Sub

这个脚本只能用于IIS6，IIS7由于重新设计过，所以完全不同了，这里也求大牛公布怎么删除iis7的日志
还有我听说3389日志可以单条删除，不知有哪位基友有此神器么？

相关推荐