%REM
	simple dxl exporter
	Created 29.03.2011 by LS
	Description: Comments for Agent
%END REM
Option Public
Option Declare

Sub Initialize
	Dim Session As New NotesSession
	Dim db As New NotesDatabase("","")
	Dim exportStream As NotesStream
	Dim exporter As NotesDXLExporter
	
	Set exportStream = session.Createstream
	Call db.Open("", "C:\db.nsf")
	exportStream.Open("C:\DB_"+db.Replicaid+".xml")
	Set exporter = session.CreateDXLExporter
	Call exporter.Setinput(db)
	Call exporter.Setoutput(exportStream)
	Call exporter.Process()
	Call exportStream.Close()				
	
End Sub