Domino agent runtime

If you're ever curious how long it takes for one of your agents to run, (i.e. nightly agents), you can use this simple piece of code. It will print the output on the command console or you can add a "sendemail" chunk of code to drop the runtimes in your mailbox the following day. Hope you find it useful. 


 
REM Copy to Declarations section
Dim dt1 As NotesDateTime, dt2 
As NotesDateTime
Dim dtdiff As Long, dtvalue As Double

REM Copy to top of initialize section
Set dt1=New NotesDateTime(Now)

REM Copy to bottom of initialize section, 
right above End Sub if you don't have any other
 labels or GoTo's that would stop you from 
hitting this code
REM Elapsed time to run agent 
Set dt2=New NotesDateTime(Now)
REM Time difference in seconds
dtdiff=dt2.TimeDifference(dt1) 
REM Time diff minutes
dtvalue = dtdiff/60  
REM Time diff in hours
'dtvalue = dtdiff/3600  
REM Time diff in days
'dtvalue = dtdiff/84600  

Print "Elapsed seconds = " & dtdiff & ",
 elapsed mins = " & dtvalue

This was first published in January 2003

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

Back to top