SQL Server Log Reader

/******************************************************************
*
* SQL Server Disk Space Check
* 
* This script displays the entries from a given SQL Server log.
* The data displayed will be the same as what can be seen under
* the "SQL Server logs" section in Enterpise Manager.
*
* In the current configuration the log displayed is the currently 
* active log; to display an archived log, change the last parameter 
* on the "Get event log" line.
*
******************************************************************/
BEGIN

-- Variable declarations
DECLARE @oServer INT, @oQuery INT, @ret INT
DECLARE @maxrow INT, @row INT, @maxcol INT, @col INT
DECLARE @colname VARCHAR(255), @logentry VARCHAR(256), @cont INT
DECLARE @entrytime DATETIME, @logtext VARCHAR(256), @source VARCHAR(20)

CREATE TABLE #logdata (EntryTime DATETIME, Source VARCHAR(20), LogEntry VARCHAR(2000), Continued INT)

-- Connect to server
EXEC @ret = master.dbo.sp_OACreate 'SQLDMO.SQLServer', @oServer OUT
EXEC @ret = master.dbo.sp_OASetProperty @oServer, 'LoginSecure', -1
EXEC @ret = master.dbo.sp_OAMethod @oServer, 'Connect', NULL, @@SERVERNAME

-- Get event log
EXEC @ret = master.dbo.sp_OAMethod @oServer, 'ReadErrorLog', @oQuery OUTPUT, 0

-- Read log
EXEC @ret = master.dbo.sp_OAGetProperty @oQuery, 'Rows', @maxrow OUTPUT
EXEC @ret = master.dbo.sp_OAGetProperty @oQuery, 'Columns', @maxcol OUTPUT
SET @row = 0
WHILE @row < @maxrow
BEGIN
SET @row = @row + 1
EXEC @ret = master.dbo.sp_OAGetProperty @oQuery, 'GetColumnString', @logentry OUTPUT, @row, 1
EXEC @ret = master.dbo.sp_OAGetProperty @oQuery, 'GetColumnDouble', @cont OUTPUT, @row, 2
IF (ISDATE(LEFT(@logentry,22)) = 1) OR (@cont <> 0)
BEGIN
IF (@cont = 0)
BEGIN
SET @entrytime = CONVERT(datetime,LEFT(@logentry,22),121)
SET @source = SUBSTRING(@logentry,24,9)
SET @logtext = RIGHT(@logentry,LEN(@logentry)-32)
INSERT INTO #logdata (EntryTime, Source, LogEntry, Continued)
VALUES (@entrytime, @source, @logtext, @cont)
END
ELSE
BEGIN
SET @logtext = @logentry
UPDATE #logdata SET LogEntry = LogEntry + @logtext
WHERE Entrytime = @entrytime AND Source = @source AND Continued = 0
END
END
END

-- Display log entries
SELECT EntryTime, Source, LogEntry FROM #logdata ORDER BY EntryTime

-- Cleanup
EXEC master.dbo.sp_OADestroy @oServer
EXEC master.dbo.sp_OADestroy @oQuery
DROP TABLE #logdata

END