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

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

Sub Export
	Dim pCmsDeployExport
	Dim shell
	Dim pExportOptions
	Dim pReportTime
	Dim pArchiveFileName
	On Error Resume Next
	Set pCmsDeployExport = CreateObject("CmsDeployServer.CmsDeployExport.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
	Set pExportOptions = pCmsDeployExport.Options
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployExport = Nothing
		Set pExportOptions = Nothing
		Exit Sub
	End If
	pExportOptions.IncludeRightsGroups = 1
	pExportOptions.IncludeCreatedBy = 1
	Dim strPackageFileName
	Dim strReportUrl
	strPackageFileName = "C:\Documents and Settings\CRagel\Desktop\Export.sdo"
	strReportUrl = pCmsDeployExport.Export("C:\Documents and Settings\CRagel\Desktop\Export.sdo",0,"{40999DC6-9240-4EC0-AD12-BCECB1935EC2}")
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployExport = Nothing
		Set pExportOptions = 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\Export.sdo", pArchiveFilePath & pArchiveFileName)
	If (Err.number <> 0 ) Then
		Call WriteErrorsToFile(pReportTime,Err.Description)
		Set pCmsDeployExport = Nothing
		Set pExportOptions = Nothing
		Exit Sub
	End If
	Set ReportFile = fs.OpenTextFile("C:\Documents and Settings\CRagel\Desktop\Export.txt",8,True,0)
	ReportFile.WriteLine("Export Completed @ " & pReportTime & "." & vbCrlf & "Report URL: http://localhost" & strReportUrl & vbCrlf)
	Set pCmsDeployExport = Nothing
	Set pExportOptions = Nothing
	Set pReportTime = Nothing
	Set fs = Nothing
End Sub