'---------------------------------------------
'This script is auto generated by MCMS Manager
'Date : 7/8/2005 10:36:09 AM
'---------------------------------------------

Call Export
Sub WriteErrorsToFile(reportTime,errorMsg)
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ReportFile = fs.OpenTextFile("C:\Documents and Settings\CRagel\Desktop\Backup.txt",8,True,0)
	ReportFile.WriteLine("Export Error @ " & reportTime & "." & vbCrlf & "Error Message: " & errorMsg & vbCrlf)
End Sub

Sub Export
	Dim pCmsDeployExport
	Dim shell
	Dim pReportTime
	Dim pArchiveFileName
	On Error Resume Next
	Set pCmsDeployExport = CreateObject("CmsDeployServer.CmsUserGroupBackupRestore.1")
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployExport = Nothing
		Exit Sub
	End If
	Call pCmsDeployExport.AuthenticateAsCurrentUser()
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployExport = Nothing
		Exit Sub
	End If
	Dim strPackageFileName
	Dim strReportUrl
	strPackageFileName = "C:\Documents and Settings\CRagel\Desktop\Backup.sdo"
	strReportUrl = pCmsDeployExport.Backup("C:\Documents and Settings\CRagel\Desktop\Backup.sdo")
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployExport = Nothing
		Exit Sub
	End If
	pReportTime = now
	pReportTime = Replace(pReportTime," ","-")
	pReportTime = Replace(pReportTime,"/","-")
	pReportTime = Replace(pReportTime,":","-")
	Set fs = CreateObject("Scripting.FileSystemObject")
	pArchiveFilePath = "C:\Documents and Settings\CRagel\Desktop\"
	pArchiveFileName = "export_" & pReportTime & ".sdo"
	Call fs.CopyFile("C:\Documents and Settings\CRagel\Desktop\Backup.sdo", pArchiveFilePath & pArchiveFileName)
	If (Err.number <> 0 ) Then
		Call WriteErrorsToFile(pReportTime,Err.Description)
		Set pCmsDeployExport = Nothing
		Exit Sub
	End If
	Set ReportFile = fs.OpenTextFile("C:\Documents and Settings\CRagel\Desktop\Backup.txt",8,True,0)
	ReportFile.WriteLine("Export Completed @ " & pReportTime & "." & vbCrlf & "Report URL: http://localhost" & strReportUrl & vbCrlf)
	Set pCmsDeployExport = Nothing
	Set pReportTime = Nothing
	Set fs = Nothing
End Sub