Lokale Verbindungsdokumente zentral ändern

    Hallo Forum,


    Ich habe eine IP-Adressumstellung meines gesamten Netzwerkes, und muss natürlich auch den Dominoserver 7.0.2 ändern. Jetzt habe ich ein Problem mit meinen Clients (7.0.2):
    Die Clients verbinden sich per IP mit dem Server, sollen aber in Zukunft den DNS-Namen verwenden.
    Gibts eine Richtlinie, mit der ich die Clients anfassen kann, um die Änderung nicht bei allen Clients lokal machen zu müssen (ca. 100 Clients)?


    Danke schonmal für eure Anregungen.

    Eine Richtlinie gibt es nicht, du kannst aber einen "Button" schicken der einen Code ausführt der genau das bei den leuten ändert was du möchtest. Erfordert allerdings etwas Entwicklerkenntnisse.

    Danke für die schnelle Antwort.
    Entwickelt habe ich schon sehr lange nicht mehr. Ich gehe davon aus, dass die Entwicklung in LotusScript sein muss.
    Wo soll ich am geschicktesten ansetzen, damit ich damit ich mich einlesen kann?

    Ich hab ein Script gefunden: hier
    Was ist aber wenn das Verbindungsdokument nicht das 1. der Ansicht ist? Kann ich irgendwie einbauen, dass das Dokument nach dem Feld "Destination" gewählt wird.
    Bin leider in Script nicht wirklich fit.

    Ich hab jetzt folgendes gebaut, was auch funktioniert. Ich würde gerne aber noch eine Fehlerprüfung machen sollte kein Verbindungsdokument mit einem bestimmten Inhalt existieren.


    Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As notesDocument
    Dim Pruef As Integer
    Dim Dest As Variant
    Dim Fehler As Variant

    Pruef = 0


    Set db = session.GetDatabase("", "names.nsf")

    Set view = db.GetView("Erweitert\Verbindungen")

    Set doc = view.GetFirstDocument
    While Not Pruef = 1
    Dest = doc.GetItemValue("Destination")
    Msgbox (Dest(0))
    If Dest(0) Like "*[organisation,Organisation,ORGANISATION]*" Then
    doc.OptionalNetworkAddress = "domino.domäne.local"
    Pruef = 1
    doc.save True, True, True
    Exit Sub
    Else
    Set doc = view.GetNextDocument(doc)
    End If
    Wend

    End Sub


    Ich habe versucht die While-Schleife so zu schreiben:
    While Not doc = Null
    ...
    Wend


    Fehler = "Fehler aufgetreten ..."
    Msgbox Fehler,16,"Fehler"


    Bei der Konstellation bekomme ich einen Type Mismatch.