Visual Basic (VB)

Print

Enterprise Vault 2007 Pre-requsites installation script

As always the code presented here is for instructional purposes. These scripts will most likely need to be modified to run in your environment. Also as I believe firmly in "re-usable code" you may find pieces of your scripts incorporated into mine. If so and you would like credit use the "email me" link and let me know. I'll be happy to add your name. Likewise if you use my code in a public forum please give me credit.

NOTE: You can copy and paste the code below to a text file, just change the extension to ".vbs" .

About This Script:
This was developed to complete the prerquisites required by Enterprise Vault 7.x. This will work for 8.0.x as well. This will complete the MSMQ and other registry changes needed.
 
'Enterprise Vault 2007 Pre-requsites installation script. 
'This will set up the MSMQ parameters as well as install the following software:
' *.NET 1.1
' *.NET 2.0 (Based on OS 32 or 64 bit)



Const HKEY_LOCAL_MACHINE = &H80000002

strValue = "E:\msmq" 'enter the new storage location for MSMQ files here

strComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")

'*** Memory settings for MSMQ ***
strKeyPath = "SOFTWARE\Microsoft\MSMQ\Parameters"
strKeyPathA = "System\CurrentControlSet\Control\Session Manager\Memory Management" 

strValueName = "KernelMemThreshold"
dwValue = "80"
oReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

strValueName = "PoolUsageMaximum"
dwValue = "60"
oReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPathA,strValueName,dwValue

strValueName = "PagedPoolSize"
dwValue = "4294967295"
oReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPathA,strValueName,dwValue

'*** Storage locations for MSMQ ***
strValueName = "StoreReliablePath"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 
strValueName = "StorePersistentPath"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "StoreJournalPath"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "StoreLogPath"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "StoreXactLogPath"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue