Consider the case where we already have a website in IIS called: greataspnetwebsite.com

• Go to IIS Manager
• Create a new website that point to the same directory as your existing one
• Select the newly created website, open the properties box
• In the option button “When connecting to this resource the content should come from” should be change to “A redirection to a URL“
• Specify the URL http://www.greataspnetwebsite.com
• Select the check box that says “A permanent redirection for this resource.”

[ad#co-inlinepost]

I have been searching for some quick implemented solutions for performing this IIS Log archiving task and found some quiet nice discussions and article about it. Here are the links to the different post and forums that talk about a solution to solve this issue:

http://blogs.thesitedoctor.co.uk/tim/2007/02/10/Automatically+Delete+Old+IIS+Log+Files.aspx

http://www.iislogs.com/ (Tool to automate maintenance of IIS Log)

http://forums.webhostautomation.com/showthread.php?t=5053

http://forums.iis.net/p/1022450/1388469.aspx

On my side i need something with a bit more functionality so, i modified some of the scripts that i could find on the different article related above and came up with a solution that can.

• Compress each log file found in your websites folder
• FTP the compressed files on a foreign server ( Keeping historic of your IIS log ) Uses Chillkat Free FTP ActiveX
• Delete them from your disk afterward

You can launch this process everyday and there will be no log that is older than a specified number of days on your server.

Requirement for this solution to work:

• Chillkatsoft FTP.1 ActiveX
• gzip archiver

You can download the script here.

See the entire script in the full post.

[sourcecode language='vb']Option Explicit

Const ftpSite = “yourftpsite”
Const ftpUsername = “ftpusername”
Const ftpPassword = “ftppassword”
Const bDEBUG = True
Const zipProgram = “C:\gzip\gzip.exe” ‘ Path to your gzip utility
Const zipExtension = “.gz”

Dim objFSO, objFolder, objF, objWS
Dim strYear, strDay, strMonth, strDate
Dim strBaseFTPPath
Dim bFTPUpload

bFTPUpload = False

‘If no arguments passed quit the script
If WScript.Arguments.Count = 0 Then
WScript.Echo “weblogs.vbs startdirectory [ftppath]”
WScript.Quit (1)
End If

‘Check if there is the FTP path Argument sent
If WScript.Arguments.Count > 1 Then
bFTPUpload = True
strBaseFTPPath = wscript.arguments (1)
End If

strDate