DominoArea.org [Archive]

Ce "renommage" concerne en fait 3 choses :
Le nom de domaine internet (xxx.xxx@toto.com)
Le nom du certificat de votre organisation JEAN DUPONT/TOTO)
Le nom de domaine Domino (JEAN DUPONT/TOTO@TOTO)


Changement du nom de domain internet :

Pour réaliser ce changement de nom de domaine voici les démarches à suivre :

1. Faire pointer le MX de tata.com vers votre serveur smtp en entrée
2. Modifier le document de domaine global pour y ajouter tata.
3. Modifier (via un script) les documents personnes pour mettre la nouvelle adresse email.
4. Prévoir un système pour avertir vos correspondants que l'adresse email a changé (possible en utilisant les règles serveur)


Changement du nom de votre certificat d'organisation :

1. Créer un nouvel organisme /TATA à l'aide de /TOTO
2. Créer une certification croisée entre TATA et TOTO et TOTO et TATA
3. Renommer les utilisateurs dans /TATA en utilisant le processus d'administration.
4. Re-signer les bases applicatives
5. Optionnel : re-certifier les serveurs en /TATA et re-signer les bases


Changement du nom de domaine domino :

1. Changer le nom de domaine dans chaque document serveur
2. Changer le nom de domaine dans le notes.ini de chaque serveur
3. Changer le nom du domaine dans le profil de l'annuaire du domaine

Salut,
Je vais apporter un peu d'eau au moulin ... en v6, dans l'administrtateur, il y a une commande dans le menu Utilisateur, qui permet de faire le changement de domaine : Définir adresse Internet.

Le seul Bémol est que l'ancienne adresse @tata n'est pas sauvegardée dans la fiche utilisateur

Sinon, voici un p'tit script qui le fera (il marche, je m'en suis encore servie hier soir):

Code : Tout sélectionner

Sub Initialize
   '
   ' *** Agent de changement du nom de domaine, dans l'adresse Internet ***
   ' S'applique au(x) doc(s) sélectionné(s)
   ' 1/ Demande de saisie du nom de domaine eMail
   ' 2/ Copie le contenue de l'adresse Internet vers le champs ShortName, afin que l'utilisateur puisse continuer de recevoir ses mails
   ' 3/ Remplacement du nom de domaine
   '
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim Currentdb As NotesDatabase
   Dim Col As NotesDocumentCollection
   Dim Doc As NotesDocument
   Dim item As NotesItem
   
   Set CurrentDb = session.CurrentDatabase
   
   NewDomain$ = Cstr(workspace.Prompt(PROMPT_OKCANCELEDIT, "Change Domain of Internet Address", "Enter the name of the new mail domain (without @)", ""))
   If NewDomain$<>"" Then   
      Set Col = Currentdb.UnprocessedDocuments
      If col.count>0 Then   
         Set Doc = Col.GetFirstDocument
         While Not Doc Is Nothing
            Print doc.FullName(0),Doc.InternetAddress(0)
            MailAddress=Split(Doc.InternetAddress(0),"@")
            MailAddress(1)=NewDomain$
            NewInternetAddress$=MailAddress(0)+"@"+MailAddress(1)
            Set item = doc.GetFirstItem( "ShortName" )
            Call item.AppendToTextList(Doc.InternetAddress(0))
            Set Status = doc.ReplaceItemValue( "InternetAddress",NewInternetAddress$)
            Call doc.Save( True, True )
            Set Doc = Col.GetNextDocument(Doc)
            Call Col.UpdateAll
            Call workspace.ViewRefresh
         Wend
      End If
   End If
End Sub

@+Sylvain