I am attempting to move a large number of applications to a new server. While I have all the applications replicated to the new server. I would like to populate the welcome page with a button on the old server that redirects them to the new application on the new server. Has anyone done this via scipt of formula language, or know of an app that is very inexpensive that will do this for me. We are talking about well over 400 + applications. Thank you in advance
Subject: dsktool.exe
give this a shot. not sure if it works with 8.5 but you can test it. you could also just cluster your old and new servers and if users try and access the db on the old server it will fail over to the new server once you turn off the old server.
Subject: dsktool
I am trying to have associates after the applications have been moved to the new server, open the databases of the original application servers and be automatically redirected to the new application servers. Will this tool allow for that? I got the impression that it was more workstation specific.
Subject: maybe one of these will work for you …
I did something similar a few yrs ago. if the application is still available on the old server
- then you can put some code in the PostOpen event of the database to rename the server in the icon. when the user clicks on the icon it should automatically go to the new server.
newserv := “new server”;
@If(@Subset(@DbName; 1) = newserv; @Return(“”); “”);
@Command([RenameDatabase]; @DbName; newserv)
- you can create redirector databases for each application you moved. This could be tedious but here’s how it’s done …
create a blank database and give it the exact same file name as the database you are moving. in the database script place this code in the following events:
Initialize
Dim ws As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim oldServer As String
Dim dbName As String
Declare Sub keybd_event Lib “user32.dll” (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
Dim view As NotesView
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim thisdb As NotesDatabase
Dim tmp As String
Dim twoLiner As String
PostOpen
Sub Postopen(Source As Notesuidatabase)
Dim dbBookmark As New NotesDatabase("","bookmark.nsf")
Dim view As NotesView
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim thisdb As NotesDatabase
Dim ws As New NotesUIWorkspace
Set thisdb = source.Database
databasePath = thisdb.FilePath
oldserver = thisdb.Server
Set view = dbBookmark.GetView("All Bookmarks")
Set col= view.GetAllDocumentsByKey(thisdb.Title)
If col.Count > 0 Then
For k = 1 To col.Count
Set doc = col.GetNthDocument(k)
Call doc.Remove(True)
Next
End If
'close this db since it's on old server
If False Then
Dim tmp As String
Set s = New NotesSession
Set ws = New NotesUIWorkspace
Set db = s.CurrentDatabase
tmp = db.Server
dbName = db.FileName
Msgbox "server=[" + oldServer + "], dbName=[" + dbName + "]"
Call s.SetEnvironmentVar("migrationServer", tmp)
Call s.SetEnvironmentVar("migrationDBName", dbName)
If ( Instr(Lcase(tmp), Lcase(oldServer)) <> 0 ) Then
End If
End If
'end delete icon
Dim twoLiner As String
twoLiner = |This database has been moved to a new server.
You will automatically be redirected to the new server by clicking OK.|
Messagebox twoLiner, MB_OK, "Domino Administration"
Call ws.OpenDatabase("<new server>","<db filepath>")
End Sub
QueryClose
@Command([WindowWorkspace])
Terminate
Sub Terminate
Dim tmp As String
Dim oldServer As String
Dim dbTitle As String
Set s = New NotesSession
Set ws = New NotesUIWorkspace
oldServer = "<old server>"
Set db = s.CurrentDatabase
tmp = db.Server
dbTitle = "<db filepath>"
If ( Instr(Lcase(tmp), Lcase(oldServer)) <> 0 ) Then
Call ws.AddDatabase(oldServer, dbTitle)
keybd_event &h2e,0,0,0 ' Del key down
keybd_event &h2e,0,2,0 ' Del key up
keybd_event &h0D,0,0,0 ' Return key down
keybd_event &h0D,0,2,0 ' Return key up
End If
End Sub
Now delete the original database from the old server and put this database in it’s place. When the user tries to open the database the code will run and will redirect the user to the database on the new server.
Subject: dsktool.exe
I wish my server was being turned off, that would be easy. However, the server will still be accessible. Just moving tons of applications off of our HUB server onto it’s own application server. I’m sure you can understand why… Thanks for the recommendation. I hope this is a free tool. You know how budgets are.