Exchange bulegoetako karpetak berrizendatzea

MS Exchange instalatuta badugu 2000 edo 2003 eta bulegoetako hizkuntza berrizendatu nahi badugu, adibidez INBOX karpeta 'Sarrera ontzia' izena jartzea eta horrela erabiltzaile guztientzat haien karpeta bakoitzarekin, hurrengo prozedura jarraitu beharko dugu.

Exchange zerbitzarian M unitatea ikusi behar dugu:, MS Exchange bada 2000 ez litzateke pauso hau egin beharrik izango, dagoeneko badugulako. Exchange batean 2003 erregistro honen bidean sarrera bat sortu beharko dugu:

HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesEXIFSParameters

'DriveLetter' izena duen 'Balio alfanumeriko berria' sortu eta 'M' balioa sartu.

Hurrengoa litzateke bulego guztietara sartzeko baimenak dituen erabiltzaile bat sortzea, babeskopiak egiteko Exmerge-rekin erabiltzen den bat badago, hori nahikoa litzateke.

Ez bada, erabiltzaile bat sortu beharko litzateke eta Exchange-ra sarrera osoa emateko baimenak eman, eta zerbitzarian saioa hasteko aukera izan dezan.

Erabiltzaileen postontzi guztietara sartzeko: Exchange kontsola irekitzen dugu > Kudeaketa taldeen > Lehen Kudeaketa Taldea > Zerbitzariak > XXX > Lehen Gordailu Taldea > Karpetetako gordailua, propietateetan sartzen gara > Segurtasun fitxa, eta erabiltzailea gehitzen dugu baimen guztiak dituela.

Zerbitzarian saioa hasi ahal izatea behar dugu gero script bat exekutatzeko, horretarako, domeinuaren administratzailea egin gabe, hurrengo politika aldatzen dugu: Kontrol Panela > Kudeaketa Tresnak > Tokiko Segurtasun Politika (domeinu-kontrolatzailea ez bada, 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 ejecutará finalmente para renombrar todas las carpetas necesarias, 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 creado alguna carpeta manualmente y el script al renombrar no permite renombrar alguna por que existen carpetas con el mismo 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 = “Diario”
Case “Calendar”
folder.name = “Egutegia”
Case “Tasks”
folder.name = “Lanak”
Case “Sent Items”
folder.name = “Elementos enviados”
Case “Deleted Items”
folder.name = “Elementos eliminados”
Case “Notes”
folder.name = “Notas”
Case “Outbox”
folder.name = “Bandeja de salida”
Case “Junk E-mail”
folder.name = “Correo no deseado”
End Select