Renommer les dossiers de boîte aux lettres Exchange

Si nous avons installé un MS Exchange 2000 ou 2003 et nous voulons renommer la langue des boîtes aux lettres, par exemple, appelez le dossier BOÎTE DE RÉCEPTION Boîte de réception et ainsi de suite pour tous les utilisateurs avec leurs dossiers respectifs, Nous devons suivre la procédure suivante.

Sur le serveur Exchange, nous avons besoin de voir le lecteur M:, s’il s’agit d’un MS Exchange 2000 Il n’y aurait pas besoin de faire cette étape car nous l’avons déjà. Dans le cas d’un échange 2003 Nous devons créer une entrée dans ce chemin de registre:

HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesEXIFSParameters

Nous créons une « nouvelle valeur alphanumérique » appelée « DriveLetter » et y mettons la valeur « M ».

La prochaine chose à faire serait de créer un utilisateur avec des autorisations pour accéder aux boîtes aux lettres de toutes les personnes, S’il y en a un qui est utilisé pour les sauvegardes avec l’Exmerge, cela en vaudrait la peine.

Autrement, vous devrez créer un utilisateur et lui donner des autorisations d’accès complètes à Exchange afin qu’il puisse se connecter au serveur.

Pour accéder à toutes les boîtes aux lettres des utilisateurs: Ouvrir la console Exchange > Groupes administratifs > Premier groupe administratif > Serveurs > XXX > Premier groupe d’entrepôts > Magasin de dossiers privé, Nous entrons les propriétés > Onglet Sécurité, et ajoutez l’utilisateur avec toutes les autorisations.

Nous devons pouvoir nous connecter au serveur, puis exécuter un script, pour ce faire sans faire de vous un administrateur de domaine, Nous avons modifié la politique suivante: « Panneau de configuration » > « Outils administratifs » > « Politique de sécurité locale » (Si vous n’êtes pas un contrôleur de domaine, mais « Politique de sécurité du contrôleur de domaine ») et sous « Paramètres de sécurité » > « Directives locales » > « Attribution de droits d’utilisateur » > « Autoriser la connexion locale », et nous entrons le nom de cet utilisateur que nous avons créé.

Nous créons un fichier appelé script.vbs avec le contenu à gauche. C’est le fichier qui sera finalement exécuté pour renommer tous les dossiers nécessaires, Ce script est entièrement modifiable. Nous pouvons ajouter d’autres entrées ou les supprimer. Si nous avons une erreur en connaissant un peu de code, nous pourrions savoir dans quel utilisateur il nous fait défaut et avec quel dossier. (Il se peut que l’utilisateur ait créé un dossier manuellement et que le script lors du renommage ne permette aucun renommage car il existe des dossiers portant le même nom, Vous pouvez mettre une MSGBOX avec des variables...).

Le processus prend quelques minutes, Nous pouvons le regarder lorsque la tâche est terminée.

——————————————————————————————-
dim fso, coquille
set fso = CreateObject(“Scripting.FileSystemObject”)

runThem(“M:”)

Définir fso = rien

wscript.quit

dim fso, coquille
set fso = CreateObject(“Scripting.FileSystemObject”)

runThem(“M:”)

Définir fso = rien

wscript.quit

Sous-runThem(xPath)
Gradation S
Définissez f = fso. GetFolder( xPath )
Pour chaque dossier dans f.SubFolders
S = folder.name
Sélectionnez Case S
Cas “Boîte de réception”
folder.name = “Boîte de réception”
Cas “Contacts”
folder.name = “Contacts”
Cas “Projets”
folder.name = “Brouillon”
Cas “Journal”
folder.name = “Quotidien”
Cas “Calendrier”
folder.name = “Calendrier”
Cas “Tâches”
folder.name = “Tâches”
Cas “Articles envoyés”
folder.name = “Articles envoyés”
Cas “Éléments supprimés”
folder.name = “Éléments supprimés”
Cas “Notes”
folder.name = “Notes”
Cas “Corbeille”
folder.name = “Bac de sortie”
Cas “Courrier indésirable”
folder.name = “Pourriel”
Fin de la sélection