Location document

[GenTrac]

We changed our Notes server and also the secondary name. Now I understand the location document has to be changed on every client workstation something to do with certificates. This would mean going to every workstation and doing it manually. Is this the case that the location document has to be changed or is there a workaround?

 

[MarkhP]

This is the code to a button that I used to update the IP address of a server on desktops. It was emailed to all users with instructions on when to click it. Maybe you can look at modifying and expanding on this as a solution?.

Sub Click(Source As Button)
Const ConnectionDocumentName = "enter-your-server-name-in-here"
Dim session As New NotesSession
Dim ConnectionsView As NotesView
Dim AddressBook As NotesDatabase
Dim ConnectionDoc As NotesDocument
Set AddressBook = session.GetDatabase("","names.nsf")

If (AddressBook Is Nothing) Then
Msgbox "Unable to find local address book", 16, "Connection Update"
Exit Sub
End If

Set ConnectionsView = AddressBook.GetView("Connections")
Set ConnectionDoc = ConnectionsView.GetDocumentByKey(ConnectionDocumentName)

If (ConnectionDoc Is Nothing) Then
Msgbox "Unable to find the Connection document", 16, "Connection Update"
Else
Call ConnectionDoc.ReplaceItemValue("OptionalNetworkAddress", "enter-your-ip-address-in-here")
Call ConnectionDoc.ReplaceItemValue("PhoneNumber", "enter-your-ip-address-in-here")
call ConnectionDoc.Save(True, False)
Msgbox "Changes Made", 64, "Connection Update"
End If

End Sub

Regs, Mark.