Example of enabling a mailbox using a script file

Dim ArrayOfParameters(0)
ArrayOfParameters(0) = "true"

Dim Enabler
Set Enabler = CreateObject("EnterpriseVault.ExchangeArchivePoint")

Enabler.Directory = "MACHINE1"
Enabler.Site = "site1" '(Entry Id or Site Name)
Enabler.ExchangeServer = "DITTO" '(Entry Id or Exchange Name)
Enabler.SystemMailbox = "EnterpriseVault-DITTO"
Enabler.MailboxDN = "/o=Eng2000/ou=First Administrative
Group/cn=Recipients/cn=Bruiser"
Enabler.SetScriptFile ("C:\MyScripts\Script1.ini", ArrayOfParameters)

Enabler.ExecuteScript ' runs the EVPM script against the script1.ini
file after making the substitutions in the strings.