Database Search

TechHome

• !!DISCLAIMER!!
• ADO Table Schemas
• Append RTF files Using COM
• AskFileName Alternative
• Binary OLE example
• Brother Label Printer with b-pac SDK
• Check CDROM Ejected
• COM Object for DLL Calls
• Convert Word Doc to PDF
• Create XML DB from the TXT file then do OLE Lookup
• Creating Shaped Hierarchical Recordset
• Crystal Reports Print Extender
• CSMail Search Inside Mime Messages
• Date Picture Taken
• Delete Message from Exchange
• Directory Browse Dialog Created Using OLE Shell Functions
• Display Spreadsheet as HTML
• Email Address Validator
• Enabling Automatic Updates
• Enumerate Certificates
• Enumerate Windows Updates
• Export Data crom Crystal Reports to Excel
• Forwarding Email Messages
• Get Current Unix TimeStamp
• GroupWise and WinBatch
• IBM Personal Communications Connect Via COM
• IIS UDFs
• Import CSV File Using Office Web Components Spreadsheet
• Inspect mail messages - CDO
• Locate and Validate Credit Card Numbers Using RegExp
• MakeCAB
• Minimize all windows
• Oracle Object for OLE OO4O Access
• Powershell COM
• Publisher SaveAsPicture
• Remove Duplicate Lines from Text File
• Remove SMS Cache Folder
• Set Groupwise Contacts Link
• SkyPe Enumerate Contacts
• SkyPe UDFs
• SNMP v1 Examples
• SQL Syntax Tool
• Symantec LiveStateRecovery ImageJob Code
• Symantec ProtectorAuto OLE Script
• Template Create IIS Site
• Use XMLHTTP to Download a File
• Windows Update Agent

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Symantec ProtectorAuto OLE Script

Question:

Option Explicit

Dim v2iauto, oNet, oImageJob
Dim oArgs, sMode

set oArgs=Wscript.Arguments

if oArgs.Count < 1 then 
wscript.echo "Must provide /B or /I on command line. Exiting."
wscript.quit(1)
end if

if lcase(oArgs(0)) = "/i" then
sMode = "I"
elseif lcase(oArgs(0)) = "/b" then
sMode = "B"
else
wscript.echo "Must provide /B or /I on command line. Exiting."
wscript.quit(1)
end if

'' -------- Create a LiveStateRecovery Automation object --------
set v2iAuto = Nothing
Set v2iAuto = CreateObject("Symantec.ProtectorAuto")
If(v2iAuto Is Nothing) Then _
Call Err.Raise(vbObjecterror+1, "KraftExecute.vbs", "Cannot create v2iAuto object")

'' ------ Connect to the local agent ------
Set oNet = CreateObject("Wscript.Network")
Call v2iAuto.Connect(oNet.ComputerName) '' or any computer with agent

'' ------ Find the first Scheduled Job containing an Incremental ------
for each oImageJob in v2iauto.imagejobs
if oImageJob.IncrementalSupport=True then
if sMode=="B" then
oImageJob.Type=oImageJob.Constants.ImageTypeBase
else
oImageJob.Type=oImageJob.Constants.ImageTypeIncremental
end if

'' ---- Execute the Job! ----
oImageJob.Reason=oImageJob.Constants.ImageReasonManual
Call v2iAuto.DoImageJob(oImageJob.ID, oImageJob.Type)
end if
next 

Answer:

Here is the code translated into WIL:

if Param0 < 1 then 
	Message("Notice","Must provide /B or /I on command line. Exiting.")
	exit
endif

if StrLower(Param1) == "/i" 
	sMode = "I"
else
	if StrLower(Param1) == "/b" then
		sMode = "B"
	else
		Message("Notice","Must provide /B or /I on command line. Exiting.")
		exit
	endif
endif

;; -------- Create a LiveStateRecovery Automation object --------
ErrorMode(@OFF)
objV2iAuto = CreateObject("Symantec.ProtectorAuto")
ErrorMode(@CANCEL)
if objV2iAuto == 0
	Message("Error", "Cannot create v2iAuto object")
	exit
endif
;; ------ Connect to the local agent ------
computername = ItemExtract(1,WinSysInfo(),@TAB)
objV2iAuto.Connect(computername); '' or any computer with agent

;; ------ Find the first Scheduled Job containing an Incremental ------
objImageJobs = objV2iAuto.imagejobs
foreach oImageJob in objImageJobs
	if oImageJob.IncrementalSupport==@True 
		if sMode="B" then
			oImageJob.Type=oImageJob.Constants.ImageTypeBase
		else
			oImageJob.Type=oImageJob.Constants.ImageTypeIncremental
		endif
		
		;; ---- Execute the Job! ----
		oImageJob.Reason=oImageJob.Constants.ImageReasonManual
		objV2iAuto.DoImageJob(oImageJob.ID, oImageJob.Type)
	endif
next 

objImageJobs = 0
objV2iAuto = 0

Article ID:   W16657

File Created: 2005:02:18:12:21:46

Last Updated: 2005:02:18:12:21:46