Visual Basic (VB)

Print

Enterprise Vault 2007 IgnoreArchiveBitTrigger.txt

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 VB script must be used in conjunction with Symantec's process as decsribed in the tech article -
http://seer.entsupport.symantec.com/docs/273151.htm
' archivetrigger.vbs
' VBScript to create a file for archive backup
' Author Chuck Arconi
' March 2009
' ---------------------------------------------------------------'
Apath="F:\EVARCHIVE\ARCHIVE2\IgnoreArchiveBitTrigger.txt"
Bpath="F:\EVARCHIVE\ARCHIVE2\IgnoreArchiveBitTrigger.old"
Set FSys = CreateObject("Scripting.FileSystemObject")
if FSys.FileExists(Bpath) Then
FSys.DeleteFile(Bpath)
end if
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(Apath)
'Option Explicit
Dim objWMIService, objItem, objService
Dim colListOfServices, strComputer, strService, intSleep
strComputer = "."
intSleep = 15000
'On Error Resume Next
' NB strService is case sensitive.
strService = " 'EnterpriseVaultStorageService' "
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& strService & " ")
For Each objService in colListOfServices
objService.StopService()
WSCript.Sleep intSleep
objService.StartService()
Next