Sure, here is the code. But you would have to do this for every application.cfm file.
CFPROGRAMMER
application.cfm
------
<cfset theTimeout = CreateTimespan(0,0,30,0)>
<cfapplication name="Extranet"
clientmanagement="Yes"
sessionmanagement="Yes"
setclientcookies="Yes"
sessiontimeout="#theTimeout#">
<!--- Session-Tracker Code --->
<cflock name="#APPLICATION.applicationName#"
type="Exclusive"
timeout="20"
throwontimeout="Yes">
<!--- If Session-Tracker does not exist,
generate it --->
<cfparam name="APPLICATION.SessionTracker"
default=#StructNew()#>
<!--- Log current user --->
<CFSET dummy = StructInsert(APPLICATION.SessionTracker, CGI.REMOTE_ADDR, Now(), true)>
</cflock>
----
See Who is on,
------
<HTML>
<TITLE>OrlandoInfo</TITLE>
<HEAD>
<STYLE type="text/css">font { font-family: Arial, sans-serif, Helvetica }
body { font-family: Arial, sans-serif, Helvetica }
table { font-family: Arial, sans-serif, Helvetica }
td { font-family: Arial, sans-serif, Helvetica }
</STYLE>
</HEAD>
<BODY bgcolor="White" background="images/gauzeyellow.gif" link="Black" alink="#444444" vlink="Black">
<P>
<TABLE width="96%" cellpadding="2" cellspacing="0" border="0">
<TR>
<TD valign="bottom" width="17"><IMG src="images/watch.gif" width="17" height="13">
</TD>
<TD valign="center"> <FONT color="#000000"><B> <font size="-1">Live content
created <cfoutput>
#TimeFormat(now(), 'HH:mm:ss')# #DateFormat(now(), "ddd mmm dd, yyyy"

# </cfoutput>
(Server Time)</font> </B></font> </TD>
</TR>
</TABLE>
<table width="475">
<TR>
<TD bgcolor="#224499" background="images/bargauzeblue.gif">
<FONT size="-1" color="#FFFFFF">
<cfoutput>
<B> Whos On - #cgi.server_name# has #StructCount(APPLICATION.SessionTracker)# active sessions. </cfoutput>
</B></font>
</TD>
</TR>
</table>
<cfoutput>
<h3>
<cflock name="#APPLICATION.applicationName#"
type="Exclusive"
timeout="20"
throwontimeout="Yes">
</cflock>
</h3>
<cflock name="#APPLICATION.applicationName#"
type="Exclusive"
timeout="20"
throwontimeout="Yes">
<table border="0" cellspacing="1" width="475" cellpadding="1">
<tr bgcolor="##cccccc">
<td background="images/bargauzeblue.gif"><b><font size="-1" color="##FFFFFF">User
(by IP-address)</font></b></td>
<td background="images/bargauzeblue.gif"><b><font size="-1" color="##FFFFFF">Session-Status</font></b></td>
</tr>
<CFLOOP collection=#APPLICATION.SessionTracker# item="aUser">
<cfset onlineSince = StructFind(APPLICATION.SessionTracker, aUser)>
<CFIF DateCompare(onlineSince+theTimeout, Now()) EQ 1>
<!--- UserÕs last activity lies within session-timeout,
so his/her session is active --->
<cfset inactiveSince = DateDiff("n", onlineSince, Now())>
<!--- The threshold for coloring the report
may be set individually: --->
<cfif inactiveSince gte 20>
<cfset theColor = "Red">
<cfelse>
<cfset theColor = "black">
</cfif>
<TR>
<TD colspan="3" nowrap valign="MIDDLE" bgcolor="##000000"><IMG align="LEFT" vspace="1" hspace="1" border="0" src="images/bchart.gif" width="17" height="17" alt="View Detailed Report">
<FONT size="-1" color="##FFFFFF"> <b>#aUser#</b>
<cfif cgi.remote_addr eq auser>
<font color="red">This Is You!!</font>
</cfif>
</font><b></b></TD>
</TR>
<TR>
<TD nowrap bgcolor="##9bb0d4" align="right"><FONT size="-2"> <B> <font size="-1">Session
Status: </font> </B></font> </TD>
<TD align="left" bgcolor="##bcd0f0"> <FONT size="-1"><font color="#thecolor#">
Inactive</font> for <b>#inactiveSince#</b> mins </font> </TD>
</TR>
<CFELSE>
<!--- UserÕs session has timed-out, so we can
delete his IP from the Session-Tracker --->
<cfset dummy = StructDelete(APPLICATION.SessionTracker, aUser)>
</CFIF>
</CFLOOP>
</table>
<p>
</cflock>
</cfoutput> </HTML>