Scheduled agent times

HCL Domino Domino Forum
1

Does anyone know how to pull the time the agents are scheduled via lotusscript or Formula’s???

I have a database that gets all the agents on the server and all the information, it has worked well but now we need to see what time all of the agents are scheduled to run.

2

Subject: Scheduled agent times

The only way I know how to do it is using the Notes API, and event then it’s quite tricky. Can be done though. Maybe you could write a DLL to wrap the necessary code and then call it from LotusScript.

3

Subject: Scheduled agent times

In addition to using the LotusScript api calls you can also use XML/DXL to get this information.

If you’re willing to look at 3rd party tools, take a look at Agent Auditor from HELP Software. You can download a trial version from http://www.helpsoft.com

4

Subject: Scheduled agent times

For this, the C++ API is probably the easiest way. You can call your functions from LotusScript.

I have a DLL I wrote that queries all this info. If you provide an email, I can forward it on to you later today (assuming I can locate it).

5

Subject: RE: Scheduled agent times

Thanks

I have been looking for an excuse to play with the c++ API, If you could send the dll that would be great… My email is jason.boulianne@dana.com

6

Subject: RE: Scheduled agent times

I emailed the project (included source code).

I also think the suggestion by Brian about using DXL/XML is a good one.

You could export the agents and parse out what you are looking for.

e.g.

Dim session As New NotesSession

Dim db As NotesDatabase

Set db = session.CurrentDatabase

Dim stream As NotesStream

Set stream = session.CreateStream

Dim filename As String



filename$ = "c:\dxl\output.dxl"

If Not stream.Open(filename$) Then

	Messagebox "Cannot open " & filename$,, "Error"

	Exit Sub

End If

Call stream.Truncate



Dim nc As NotesNoteCollection

Set nc = db.CreateNoteCollection(False)

nc.SelectAgents= True

Call nc.BuildCollection



Dim exporter As NotesDXLExporter

Set exporter = session.CreateDXLExporter

Call exporter.SetInput(nc)

Call exporter.SetOutput(stream)

Call exporter.Process

resulting in something like:

20050418T110358,12-05

20050418T110420,30-05

20050418T110420,29-05

20050418T110420,29-05

20050418T110420,29-05

CN=Brian/O=Whatever

CN=Brian/O=Whatever

20050418T110419,89-05

T031500,00

20050418T110419,89-05

… then parse it