Renombrar Carpetas de los buzones de Exchange

Si tenemos instalado un MS Exchange 2000 oder 2003 y queremos renombrar el idioma de los buzones, por ejemplo a la carpeta INBOX llamarla Bandeja de entrada y así para todos los usuarios con sus respectivas carpetas, deberemos seguir el siguiente procedimiento.

Auf dem Exchange-Server müssen wir das Laufwerk M sehen:, wenn es ein MS Exchange ist 2000 dann wäre dieser Schritt nicht nötig, weil wir es bereits haben. Im Falle eines Exchange 2003 müssen wir einen Eintrag in diesem Registrierungspfad erstellen:

HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesEXIFSParameters

Wir erstellen einen 'Neuen alphanumerischen Wert' namens 'DriveLetter' und setzen den Wert auf 'M'.

Als Nächstes müssen wir einen Benutzer mit Berechtigungen zum Zugriff auf alle Postfächer der Benutzer erstellen, wenn es einen gibt, der für die Backups mit Exmerge verwendet wird, wäre dieser ausreichend.

Sonst, es müsste ein Benutzer erstellt werden und ihm volle Zugriffsberechtigungen auf Exchange gegeben werden, und er sollte sich am Server anmelden können.

Damit er auf alle Benutzerpostfächer zugreifen kann: Wir öffnen die Exchange-Konsole > Administrative Gruppen > Primer Grupo Administrativo > Diener > 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.

Wir erstellen eine Datei, die script.vbs heißt, mit dem Inhalt auf der linken Seite. Es ist die Datei, die schließlich ausgeführt wird, um alle notwendigen Ordner umzubenennen, Dieses Skript ist völlig modifizierbar. Wir können weitere Einträge hinzufügen oder entfernen. Wenn wir einen Fehler haben, könnten wir, wenn wir ein wenig Code kennen, herausfinden, bei welchem Benutzer es fehlschlägt und bei welchem Ordner. (Es kann sein, dass der Benutzer einen Ordner manuell erstellt hat und das Skript beim Umbenennen nicht erlaubt, einen bestimmten Ordner umzubenennen, weil Ordner mit dem gleichen Namen existieren, Man kann eine MsgBox mit Variablen einfügen…).

Der Prozess dauert ein paar Minuten, Wir können es uns ansehen, wenn die Aufgabe abgeschlossen ist.

——————————————————————————————-
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 )
Für jeden Ordner in f.SubFolders
S = folder.name
Auswählen Fall S
Fall “Postfach”
folder.name = “Posteingang”
Fall “Kontakte”
folder.name = “Contactos”
Fall “Entwürfe”
folder.name = “Borrador”
Fall “Journal”
folder.name = “Täglich”
Fall “Kalender”
folder.name = “Kalender”
Fall “Aufgaben”
folder.name = “Aufgaben”
Fall “Gesendete Einträge”
folder.name = “Elementos enviados”
Fall “Gelöschte Einträge”
folder.name = “Elementos eliminados”
Fall “Notizen”
folder.name = “Notizen”
Fall “Outbox”
folder.name = “Bandeja de salida”
Fall “Junk E-mail”
folder.name = “Correo no deseado”
End Select