[xanburzum]

Este script irá criar / adicionar a um arquivo zip (web_logs.zip) todos os arquivos de log em C: \ WINNT \ system32 \ LogFiles \ W3SVC1 \ e apagar os arquivos de log uma vez que são adicionados ao arquivo zip. Este script requer componente SA-Arquivo de www.softartisans.com

<%@ LANGUAGE="VBSCRIPT" %>
<%
dim afile, FilePresence
afile = "C:\WINNT\system32\LogFiles\W3SVC1\web_logs.zip"
Function FileExists(afile)
	Dim fso
	Set fso = Server.CreateObject("Scripting.FileSystemObject")	
	FileExists = fso.FileExists(afile)
	Set fso = Nothing
	End Function
	
FilePresence = FileExists(afile)
If FilePresence = False Then
	Set Arch = CreateObject("SoftArtisans.Archive")
	On Error Resume Next
	archiveName = "C:\WINNT\system32\LogFiles\W3SVC1\web_logs.zip"
	Arch.archivetype = 1
	Arch.preservepath = true
	Arch.createarchive archiveName
	Arch.AddFile "C:\WINNT\system32\LogFiles\W3SVC1\*.log",true
	Arch.CloseArchive
else
	Set Arch = CreateObject("SoftArtisans.Archive")
	On Error Resume Next
	archiveName = "C:\WINNT\system32\LogFiles\W3SVC1\web_logs.zip"
	Arch.OpenArchive archiveName
	Arch.AddFile "C:\WINNT\system32\LogFiles\W3SVC1\*.log",true
	Arch.CloseArchive
end if
Kill "C:\WINNT\system32\LogFiles\W3SVC1\*.log" 
Private Sub Kill(ByVal pathname)
	Dim objFSO, boolErr, strErrDesc
	On Error Resume Next
	Set objFSO = Server.CreateObject("scripting.filesystemobject")
	objFSO.DeleteFile pathname
	objFSO.DeleteFolder pathname
	
	If Err Then 
		boolErr = True
	strErrDesc = Err.description
	End If
	
	Set objFSO = Nothing
	On Error GoTo 0
	If boolErr Then Err.Raise 5102, "Kill Statement", strErrDesc
End Sub
%>