Aumentar el tamaño de la base de datos de Exchange standard 2003

Uno de los puntos críticos de un Exchange standard 2003 , y por donde pueden venir todos los desastres, es referente al tamaño de la base de datos.
La base de datos de un exchange por defecto, nunca puede superar los 16 gb en total. Esto realmente es un tamaño que enseguida se puede quedar corto, por lo que cuando sacaron el sp1 de exchange, aumentaron el tamaño a 18 gb.
Uaahuuuu!!!, vaya cambio. Esta claro que tampoco era suficiente. Por lo que microsoft al final se dio cuenta de las indirectas, y saco el sp II. Entre las mejoras que incluye (comentaremos el resto en otras entradas), esta una de las mas esperadas, y fue un cambio substancial en lo que se refiere a la base de datos. Nada mas ni nada menos que puede llegar a un tamaño de 75 gb.
Una vez instalado el spII, mucha gente dice ¿Y ahora que?¿Donde amplio el tamaño de la bd?.
El exchange una característica que tiene, es que mucho de los cambios que hay que realizar en el, se realizan a través del registro de windows.
En este caso la entrada a crear es esta:
“Database Size Limit in GB”.
La llave debe de ser creada bajo la siguiente rama, tanto para la entrada de buzones o carpetas publicas respectivamente

• HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSExchangeIS\\Private-GUID
• HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSExchangeIS\\Public-GUID

Aquí os dejo un scritp.vbs, el cual añade al registro las entradas necesarias (fig 1), para poder ampliar el tamaño de la bd de exchange.
fig 1.

script ExchangeStdSp2.vbs



Dim CleReg,arrSubkeys,StrComputer
Dim i,nbi,x

dim Server,file,objfs,WshShell

'Lectura de los argumentos
'If WScript.Arguments.named.Count

=0 Then
' MsgBox("Exchange 2003 standard Size tool"+Newline+"Usage:
E2K3STD.vbs"+Newline+"Necessary Option /P:printerFile")
' wscript.quit
'End If

'If WScript.Arguments.Named.exists("P") Then
' PrinterFile=WScript.Arguments.Named.Item("P")
'End If

SET objFS=CreateObject ("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject ("WScript.Shell")

'Lectura del registro

server = Wshshell.ExpandEnvironmentStrings("%COMPUTERNAME%")

CleReg="SYSTEM\CurrentControlSet\Services\MSExchangeIS\"+Server

wscript.Echo CleReg

Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & strComputer &
"\root\default:StdRegProv")

objRegistry.EnumKey HKEY_LOCAL_MACHINE, CleReg, arrSubkeys
If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
objRegistry.Setdwordvalue HKEY_LOCAL_MACHINE,
clereg+"\"+StrSubKey,"Database Size Limit in Gb",75
objRegistry.Setdwordvalue HKEY_LOCAL_MACHINE,
clereg+"\"+StrSubKey,"Database Size Buffer in Percentage",10
objRegistry.Setdwordvalue HKEY_LOCAL_MACHINE,
clereg+"\"+StrSubKey,"Database Size Check Start Time in Hours From
Midnight",5
wscript.echo StrSubKey
Next
Else
Wscript.echo "This Machine is not an Exchange server"
End If