Renomear Pastas das caixas de correio do Exchange

Se tivermos o MS Exchange instalado 2000 ou 2003 e quisermos renomear o idioma das caixas de correio, por exemplo, à pasta INBOX chamar Bandeja de entrada e assim para todos os utilizadores com as suas respetivas pastas, devemos seguir o seguinte procedimento.

No servidor Exchange precisamos ver a unidade M:, se for um MS Exchange 2000 não seria necessário fazer este passo porque já a temos. No caso de um Exchange 2003 devemos criar uma entrada neste caminho do registo:

HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesEXIFSParameters

Criamos um ‘Novo valor alfanumérico’ chamado ‘DriveLetter’ e colocamos o valor ‘M’.

O seguinte seria criar um utilizador com permissões para aceder a todas as caixas de correio das pessoas, se existir um que se use para os backups com o exmerge servia.

Caso contrário,, seria necessário criar um utilizador e dar-lhe permissões de acesso total ao Exchange e que possa iniciar sessão no servidor.

Para que aceda a todas as caixas de correio dos utilizadores: Abrimos a consola do Exchange > Grupos Administrativos > Primer Grupo Administrativo > Servidores > XXX > Primer Grupo de almacén > Almacén de carpetas privadas, entramos en propiedades > Pestaña seguridad, y añadimos el usuario con todos los permisos.

Necesitamos que se pueda logear en el servidor para luego ejecutar un script, para ello sin hacerle administrador de dominio, modificamos la siguiente política: “Panel de Control” > “Herramientas Administrativas” > “Directiva de seguridad local” (si no es controlador de dominio, 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”, y metemos el nombre de este usuario que hemos creado.

Creamos un archivo que se llame script.vbs con el contenido de la izquierda. Es el archivo que se executará finalmente para renombrar todas las carpetas necessárias, este script es totalmente modificable. Podemos añadir más entradas o quitarlas. Si tenemos algún error sabiendo un poco de código podríamos saber en que usuario nos falla y con que carpeta. (Puede ser que el usuario haya criado alguna carpeta manualmente y el script al renombrar no permite renombrar alguma por que existem carpetas con el mismo nombre, se puede meter un msgbox con variáveis...).

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 = nada

wscript.quit

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

runThem(“M:”)

set fso = nada

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 “Contactos”
folder.name = “Contactos”
Case “Drafts”
folder.name = “Borrador”
Case “Journal”
folder.name = “Diário”
Case “Calendário”
folder.name = “Calendário”
Case “Tarefas”
folder.name = “Tarefas”
Case “Sent Items”
folder.name = “Elementos enviados”
Case “Deleted Items”
folder.name = “Elementos eliminados”
Case “Notes”
folder.name = “Anotações”
Case “Outbox”
folder.name = “Bandeja de salida”
Case “Junk E-mail”
folder.name = “Correo no deseado”
End Select