Renombrar Carpetes de les bústies d'Exchange

Si tenemos instalado un MS Exchange 2000 o 2003 y queremos renombrar el idioma de los buzones, per exemple a la carpeta INBOX llamarla Bandeja de entrada y així para tots los usuaris amb les seves respectives carpetes, deberemos seguir el siguiente procediment.

En el servidor Exchange necesitamos ver la unidad M:, si es un MS Exchange 2000 no habría falta hacer este paso por que ya la tenemos. En el caso de un Exchange 2003 debemos crear una entrada en esta ruta del registro:

HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesEXIFSParameters

Creamos un “Nuevo valor alfanumérico” llamado “DriveLetter” y le metemos el valor “M”.

Lo siguiente sería crear un usuario con permisos para acceder a todos los buzones de la gente, si n'hi ha un que s'utilitzi per a les còpies de seguretat amb l'exmerge valdria.

Si no, caldria crear un usuari i donar-li permisos d'accés total a l'Exchange i que pugui iniciar la sessió al servidor.

Perquè accedeixi a tots els bústies dels usuaris: Obrim la consola de l'Exchange > Grups administratius > Primer Grup Administratiu > Servidors > XXX > Primer Grup d'emmagatzematge > Emmagatzematge de carpetes privades, entrem a propietats > Pestanya seguretat, i afegim l'usuari amb tots els permisos.

Necessitem que es pugui connectar al servidor per després executar un script, per això sense fer-lo administrador de domini, modifiquem la següent política: “Panell de Control” > “Eines Administratives” > “Directiva de seguretat local” (si no és controlador de domini, sino “Directiva de seguridad del controlador de dominio”) y en “Configuración de seguridad” > “Directivas locales” > “Asignación de derechos de usuario” > “Permitir el inicio de sesión local”, i metemos el nombre d'aquest usuari que hem creat.

Creamos un arxiu que se llame script.vbs amb el contingut de la izquierda. És l'arxiu que se executarà finalment para renombrar todas las carpetes necessàries, Aquest script és totalment modificable. Podem afegir més entrades o quitarlas. Si tenemos algun error sabent un poc de codi podríem saber en que usuari ens falla i amb que carpeta. (Puede ser que el usuario haya creat alguna carpeta manualment y el script al renombrar no permet renombrar alguna por que existen carpetas amb el mateix nombre, se puede meter un msgbox con variables...).

El proceso tarda un par de minutos, podemos mirarlo cuando finalice la tarea.

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

runThem(“M:”)

set fso = nothing

wscript.quit

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

runThem(“M:”)

set fso = nothing

wscript.quit

Sub runThem(xPath)
Dim S
Set f = fso.GetFolder( xPath )
For Each Folder In f.SubFolders
S = folder.name
Select Case S
Case “Inbox”
folder.name = “Bandeja de entrada”
Case “Contacts”
folder.name = “Contactos”
Case “Drafts”
folder.name = “Borrador”
Case “Journal”
folder.name = “Diari”
Case “Escalfar”
folder.name = “Calendari”
Case “Tasks”
folder.name = “Tasques”
Case “Sent Items”
folder.name = “Elementos enviados”
Case “Deleted Items”
folder.name = “Elementos eliminados”
Case “Notes”
folder.name = “Notes”
Case “Outbox”
folder.name = “Bandeja de salida”
Case “Junk E-mail”
folder.name = “Correo no deseado”
End Select