Symantec LiveState Recovery 3.0 Desktop - Incremental Script

[Tibi 10]

Wir haben auf mehreren hundert PC´s LiveState Recovery am Laufen und möchten per VBS Script die Incrementele Backup-Jobs einrichten (auwählen auf mehr als 1000 PC´s ist nicht möglich und viel zu Aufwendig).

 

Wichtig wäre, dass jeden Sonntag ein Base-Backup von Laufwerk C & D und von Mo-Sa. jeweils morgens und abends eine Incrementele Sicherung (C & D) gemacht wird.

 

Habe Probleme mit dem Incrementelen Abschnitt :(

 

Hat jmd. ein ähnliches Script und könnte mir dies zur Verfügung stellen oder mir helfen?

 

Function JobNew(strImageFolder,ImageName)
'Objekt Deklaration
Dim objv2iAuto, objNet, objVolume, objTempVol, objImageJob, objFolderLocation, objCurrentJob, objTask, objIncrementalTask

'Create a LiveState Recovery automation object
Set objv2iAuto 	= CreateObject("Symantec.ProtectorAuto")

'Connect to the local agent
WScript.Echo "Start Step: Connecting the Local LSR Agent..."
Set objNet = CreateObject("Wscript.Network")
Call objv2iAuto.Connect(objNet.ComputerName)
	For Each objTempVol in objv2iAuto.Volumes(False)
 			If objTempVol.DisplayName = "DISK1.PART1_C (C:\)"  Then
 				Set objVolume = objTempVol
 				Set objFolderLocation = CreateObject("Symantec.LiveStateRecovery.FolderLocation")
 				objFolderLocation.Path 		= strImageFolder
 				objFolderLocation.FileSpec 	= "C_" & ImageName

		  	'Create a task to schedule the image job
 			    Set objTask = CreateObject("Symantec.Scheduler.Task")
			objTask.Description = "Base Backup"
			objTask.StartDateTime = "20:15" ' GMT (+1 Amsterdam, Berlin, Bern, Rom, Stockholm, Wien)
			objTask.RepeatInterval = objTask.Constants.IntervalWeekly
			objTask.AddRepeatDay(0) ' Sun
  			    Call objTask.Validate() ' Make sure we built the task correctly

			'Create a incremental task to schedule the image job
			Set objIncrementalTask = CreateObject("Symantec.LiveStateRecovery.IncrementalTask")
			objIncrementalTask.Description = "Base Backup"
			objIncrementalTask.StartDateTime = "08:00" ' GMT (+1 Amsterdam, Berlin, Bern, Rom, Stockholm, Wien)
			objincrementalTask.RepeatHourEndTime = "19:15" ' GMT (+1 Amsterdam, Berlin, Bern, Rom, Stockholm, Wien)
			objIncrementalTask.RepeatInterval = objTask.Constants.IntervalWeekly
			objIncrementalTask.AddRepeatDay(1) ' Mon
			objIncrementalTask.AddRepeatDay(2) ' Tue
			objIncrementalTask.AddRepeatDay(3) ' Wed
			objIncrementalTask.AddRepeatDay(4) ' Thu
			objIncrementalTask.AddRepeatDay(5) ' Fri
			objIncrementalTask.AddRepeatDay(6) ' Sat
			objincrementalTask.RepeatOn = True
			objincrementalTask.RepeatInterval = "08:00"
  			    Call objTask.Validate() ' Make sure we built the task correctly

			'Create a manual image job
 				Set objImageJob = CreateObject("Symantec.LiveStateRecovery.ImageJob")
 				objImageJob.IncrementalSupport = True
 				objImageJob.IncrementalTask = objIncrementalTask
 				objImageJob.DisplayName = "Backup of " & objVolume.DisplayName
 				objImageJob.Description = "This ImageJob was created from the Script LSR-BACKUP.vbs!"
 				'objImageJob.Compression = objImageJob.Constants.ImageCompressionHigh ' Image Compression High
 				objImageJob.Compression = objImageJob.Constants.ImageCompressionMedium ' Image Compression Medium
 				objImageJob.Reason = objImageJob.Constants.ImageReasonManual
 				objImageJob.Volumes = Array(objVolume.ID)
 				objImageJob.Task = objTask
 				objImageJob.Location(objVolume.ID) = objFolderLocation
				objImageJob.RunOnce = False
 				objImageJob.Quota = 20

 				'Add the image job to the list of jobs
 				Call objv2iAuto.AddImageJob(objImageJob)
 				WScript.Echo "DISK1.PART1_C (C:\) - Image Job added successfully."
 				Set objVolume 			= Nothing
 				Set objImageJob 		= Nothing
			Set objFolderLocation 	= Nothing
 			End If
	 	Next
End Function

[Tibi 10]

Folgende Fehlermeldung erhalten ich beim Anlegen der Jobs:

 

Option for the Script: /JOBNEW

Imagename for the Script: Backup

Start Step: Connecting the Local LSR Agent...

c:\WINNT\system32\vbs\LSR-Backup_Incrementer.VBS(209, 5) Microsoft VBScript runt

ime error: ActiveX component can't create object: 'Symantec.LiveStateRecovery.In

crementalTask'

[Velius 10]

Mein Suchergebnis mit ActiveX component can't create object & vbscript bei MS:

 

 

BUG: You receive an "ActiveX component can't create object" error message when you Use Windows Script Host to execute remote script

BUG: You receive an "ActiveX component can't create object" error message when you Use Windows Script Host to execute remote script

 

Gruss

Velius

[Tibi 10]

Mein Suchergebnis mit ActiveX component can't create object & vbscript bei MS:

 

 

BUG: You receive an "ActiveX component can't create object" error message when you Use Windows Script Host to execute remote script

BUG: You receive an "ActiveX component can't create object" error message when you Use Windows Script Host to execute remote script

 

Gruss

Velius

 

Danke für d. Tip, aber dass Erstellen von Incrementelen Backup´s über die Konsole ist ohne weitere Möglich, daher dachte ich, dass die Erstellung über VBS auch ohne irgendwelche Registrierungen etc. möglich sein sollte. Außerdem bin ich mir nicht sicher, ob d. Script 100%ig stimmt. Super wäre ein Script von Symantec, welches ich als Vorlage nutzen könnte und ein Incrementeler Backup eingerichtet ist.

[Velius 10]

Danke für d. Tip, aber dass Erstellen von Incrementelen Backup´s über die Konsole ist ohne weitere Möglich, daher dachte ich, dass die Erstellung über VBS auch ohne irgendwelche Registrierungen etc. möglich sein sollte.

 

Sollte das die Fehlerquelle sein, kannst du über ein Loginscript den Host umstellen. Der Befehl dazu sieht etwa so aus:

 

C:\>[color="DarkRed"]cscript /h:wscript[/color]
Microsoft (R) Windows Script Host, Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Alle Rechte vorbehalten.

Der standardmäßige Skripthost ist jetzt "wscript.exe".

C:\>

 

 

Gruss

Velius

 

P.S.: Bei der Vorlage kann ich wenig helfen - einfach testen;)

[Tibi 10]

Danke für d. Tips, aber leider komme ich nicht weiter. Vielleicht hat jmd. ein *.VBS Script für die Erstellung eines Increment. Sicherungsjobs.