\' ' Enable a mailbox ' 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.VaultStore = "VaultStoreMain" '(Entry Id or Vault Store Name) Enabler.RetentionCategory = "Business" '(Entry Id or Retention Category Name) Enabler.IndexingService = "MACHINE1" Enabler.Enable ' ' Disable a mailbox ' 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.Disable
After the script has been run, the read-only properties ReportText and LastScript are available to return information on the script.