Print
PDF
07
August
2009

Enterprise Vault 2007 IgnoreArchiveBitTrigger.txt

User Rating: / 0
PoorBest 
setAs 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
Trackback(0)
Comments (0)add comment

Write comment

busy

If you like what we got, then make a donation andĀ feel better about yourself.