OPTION EXPLICIT
DIM strEventSinkDBConn, objEventSinkDB, rsCheck4Errors
DIM strComputerName, intCheckInterval

If WScript.Arguments.Count <> 2 Then
	WScript.Echo "Usage: display-all-comp-events.vbs <computername> <time window>"
	WScript.Quit
End If

strComputerName = TRIM(WScript.Arguments(0))			'Computername like DC1 or 192.168.0.0
intCheckInterval = CINT(WScript.Arguments(1))			'Interval is in minutes
strEventSinkDBConn = "DSN=EventSink"					'connection string 
Set objEventSinkDB = CreateObject("ADODB.Connection")	'ADODB connection object
objEventSinkDB.commandtimeout=300
objEventSinkDB.Open strEventSinkDBConn					'Open that connection

SET rsCheck4Errors = objEventSinkDB.Execute("SELECT * FROM tblInBound WHERE (ComputerName = '"& strComputerName&"' OR Message like '%"&strComputerName&"%') AND   EventDateTime >= DATEADD(n,"&	intCheckInterval*-1 &",GETDATE()) ;")
While NOT rsCheck4Errors.EOF
	funDisplayEvent()	
	rsCheck4Errors.MoveNext
WEND


FUNCTION funDisplayEvent()
	WScript.Echo "#########################################################"&VbCr
	WScript.Echo "ID: " &rsCheck4Errors("id") &VbCr
	WScript.Echo "DB Time: " &rsCheck4Errors("EventDateTime") &VbCr
	WScript.Echo "ComputerName: " &rsCheck4Errors("ComputerName") &VbCr
	WScript.Echo "LogFile: " &rsCheck4Errors("LogFile") &VbCr
	WScript.Echo "RecordNumber: " &rsCheck4Errors("RecordNumber") &VbCr
	WScript.Echo "SourceName: " &rsCheck4Errors("SourceName") &VbCr
	WScript.Echo "EventIdentifier: " &rsCheck4Errors("EventIdentifier") &VbCr
	WScript.Echo "EventCode: " &rsCheck4Errors("EventCode") &VbCr
	WScript.Echo "Type: " &rsCheck4Errors("Type") &VbCr
	WScript.Echo "Category: " &rsCheck4Errors("Category") &VbCr
	WScript.Echo "CategoryString: " &rsCheck4Errors("CategoryString") &VbCr
	WScript.Echo "TimeGenerated: " &rsCheck4Errors("TimeGenerated") &VbCr
	WScript.Echo "TimeWritten: " &rsCheck4Errors("TimeWritten") &VbCr
	WScript.Echo "User: " &rsCheck4Errors("User") &VbCr
	WScript.Echo "Message: " &VbCrLf &rsCheck4Errors("Message") &VbCr
	WScript.Echo "##################################################"&VbCrLf&VbCrLf
END FUNCTION