Danke für die vielen Antworten.
Habe hier noch ein Script gefunden, mit der die Arbeitsumgebung des Users auf den neuen Server umgeschrieben wird und gleichzeitig die neue Kachel auf den Desktop gebracht wird.
Leider bekomme ich immer die Meldung, dass die Datei nicht vorhanden ist.
Sub Click(Source As Button)
Dim session As New notessession
' For The Current User in The Current Session, Get All The NABs
Forall books In session.addressbooks
'Check If The Current NAB is Private or Public
'If The NAB Is Private, Than It Should Be Your Personal NAB
If books.isprivateaddressbook Then
'Verify if The NAB is Open, If Not, Open it
If Not(Books.isopen) Then
Call Books.open("",books.filename)
'Now Get All The Documents in The Location View
Set view = books.getview("Locations")
Set doc = view.getfirstdocument
'For All The Documents in The View
While Not (doc Is Nothing)
' Get The MailServer Field and Modify it (For Example : "CN=MAILSRV1/OU=PAR/OU=M/O=ACME")
Call doc.replaceitemvalue ("MailServer","CN=S155LN05/O=Sparkasse Stade-Altes Land/C=DE")
'Save Document
Call doc.save (True,True)
'Get Next document
Set doc = view.getnextdocument(doc)
Wend
End If
End If
End Forall
' Holt Icon von Mailkorb auf Desktop
Dim db As notesdatabase
Set db = session.currentdatabase
Dim file As String
file = db.FileName
Dim ws As New notesuiworkspace
Call ws.adddatabase("S155LN05/Sparkasse Stade-Altes Land/DE","mail/"&Lcase$(file))
End Sub