Hallo,
ich glaub Du bist ja nicht der Erste, der das will.
Vor einem ähnlichen Problem stand ich auch schon, als sich der Name unseres Mailservers aenderte. Hier in Auszügen das Script, was ich rumschickte.
Es änderte auf Knopfdruck in jeder Arbeitsumgebung, in denen der entsprechende Server als Mailserver hinterlegt war, den Eintrag auf den neuen Wert.
Vielleicht hilft Dir das ja weiter.
Sub Click(Source As Button)
Dim db As New NotesDatabase( "" , "names.nsf" )
Dim view As NotesView
Dim doc As NotesDocument
Dim intCount As Integer
Set view = db.GetView( "($Locations)" )
intCount = 0
Set doc = view.getFirstDocument
While Not(doc Is Nothing)
If (Lcase(doc.Mailserver(0)) = "cn=test1/o=testen" Or Lcase(doc.Mailserver(0)) = "cn=test2/o=testen" ) Then
doc.Mailserver = "CN=neutest/O=testen"
Call doc.save (True, False)
intCount = intCount + 1
End If
Set doc = view.GetNextDocument(doc)
Wend
End Sub