Back to Articles page

MS Outlook Web Access 5.5 logging, by Lee Derbyshire

Access logging to an Outlook Web Access site can be achieved by making a small modification to the file LOGONFRM.ASP . This file is usually located in folder C:\EXCHSRVR\WEBDATA\USA . Site access is logged to file C:\OWA.log , but you can change this by specifying an alternate location in the second line of the code. Items logged are; date, time, IP address, mailbox name and NT user account name.

Before you modify this file, MAKE A BACKUP of your original!

These are the lines that need to be inserted into the file, at the beginning of the subroutine RedirectToRequest in the ASP file:

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("C:\OWA.log", 8, True)
  f.Write Date & ","
  f.Write Time & ","
  f.Write Request.ServerVariables("REMOTE_ADDR") & ","
  f.Write Request.QueryString("mailbox") & ","
  f.Write Request.ServerVariables("REMOTE_USER")
  f.Write vbCrLf
  f.Close
  Set f = Nothing
  Set fso = Nothing

After the lines have been inserted, the beginning of your LOGONFRM.ASP should look something like this:

<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<!--#include file="constant.inc" -->
<!--#include file="lib/session.inc" -->
<!--#include file="lib/logon.inc" -->
<!--#include file="lib/pageutil.inc" -->
<%
'=======================
' RedirectToRequest
' Redirects user to their originally requested URL
'=======================
Sub RedirectToRequest

	On Error Resume Next

	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile("C:\OWA.log", 8, True)
	f.Write Date & ","
	f.Write Time & ","
	f.Write Request.ServerVariables("REMOTE_ADDR") & ","
	f.Write Request.QueryString("mailbox") & ","
	f.Write Request.ServerVariables("REMOTE_USER")
	f.Write vbCrLf
	f.Close
	Set f = Nothing
	Set fso = Nothing

	bstrPgReq = Session(bstrURLReq)
	Session(bstrURLReq) = 0

	If (bstrPgReq <> 0) Then
		If InStr(1, bstrPgReq, ".asp", vbTextCompare) Then
			' WARNING! No script after this line will be executed!
			Response.Redirect bstrPgReq
		End If
	End If

End Sub

(Rest of file LOGONFRM.ASP omitted.)