Create DB copy on multiple servers?

HCL Domino Domino Forum
1

Any good ideas how to create copies (not replicas)of a database to many servers in an easy way?

2

Subject: Create DB copy on multiple servers?

Short of putting something together in Lotus Script, no, I have no clue.

3

Subject: that’s what I’ve always done.

I have a utilities db on my workstation with an agent that prompts for source and destination.

4

Subject: RE: that’s what I’ve always done.

Since I’m not a developer, could I ask for this apps or if not get some tips on how to create such a app.?

jan.lofgren@gmail.com

5

Subject: RE: that’s what I’ve always done.

Could I have this app?

6

Subject: RE: that’s what I’ve always done.

Here’s an agent that does a bit more than that, and can be trimmed down if needed. It creates not one copy of the specified databases, but multiple subdirectories full of them, for quickly setting up a training room.

Sub Initialize

Dim s As New notessession

Dim olddb As notesdatabase

Dim newdb As notesdatabase

Dim i As Integer

Dim dbpath As String

Dim fn As String

Dim stunames() As String

Dim stuname As String

Dim fnames() As String

Dim server As String



server = Inputbox("Enter server name:", "", "Domino5/Training")

If server = "" Then Exit Sub



stuname = "Student1"

Do

	i = i + 1

	stuname = Inputbox("Enter a subdirectory name for a student:" _

	& Chr$(10) & "(Enter nothing or Cancel to finish entering names" _

	& " and move on.)", "", "Student" & i)

	If stuname <> "" Then

		Redim Preserve stunames(1 To i)

		stunames(i) = stuname & "\"

	End If

Loop Until stuname = ""



i = 0

dbpath = Inputbox("Enter path where dbs to be copied are located:", "NSF location", "C:\AD240") & "\"

fn = Dir(dbpath & "*.nsf")	

Do Until fn = ""

	Redim Preserve fnames(i)

	fnames(i) = fn

	i = i + 1

	fn = Dir()

Loop



Forall stu In stunames

	Forall f In fnames

		Set olddb = New notesdatabase("", dbpath & f)

		Set newdb = olddb.createfromtemplate(server, stu & f, False)

		If Not newdb.isopen Then

			Msgbox "Unable to open db " & f & " on " & server & "!", 16, "Yikes!"

			Exit Sub

		End If

	End Forall

End Forall

End Sub