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

Dim strImportFile
strImportFile = "C:\Documents and Settings\CRagel\Desktop\Restore.sdo"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If(fso.FileExists(strImportFile))Then
	Call Import(strImportFile)
Else
	Call WriteErrorsToFile(now,"The import file """ & strImportFile & """ does not exist.")
End If
Sub WriteErrorsToFile(reportTime,ErrorMsg)
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ReportFile = fs.OpenTextFile("C:\Documents and Settings\CRagel\Desktop\Restore.txt",8,True,0)
	ReportFile.WriteLine("Export Error @ " & reportTime & "." & vbCrlf & "Error Message: " & errorMsg & vbCrlf)
End Sub

Sub Import(strImportFile)
	Dim pCmsDeployImport
	Dim pReportTime
	On Error Resume Next
	Set pCmsDeployImport = CreateObject("CmsDeployServer.CmsUserGroupBackupRestore.1")
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployImport = Nothing
		Exit Sub
	End If
	Call pCmsDeployImport.AuthenticateAsCurrentUser()
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployImport = Nothing
		Exit Sub
	End If
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployImport = Nothing
		Exit Sub
	End If
	Dim strReportUrl
	strReportUrl = pCmsDeployImport.Restore(strImportFile,FALSE)
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployImport = Nothing
		Exit Sub
	End If
	pReportTime = now
	pReportTime = Replace(pReportTime," ","-")
	pReportTime = Replace(pReportTime,"/","-")
	pReportTime = Replace(pReportTime,":","-")
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ReportFile = fs.OpenTextFile("C:\Documents and Settings\CRagel\Desktop\Restore.txt",8,True,0)
	ReportFile.WriteLine("Import Completed @ " & pReportTime & "." & vbCrlf & "Report URL: http://localhost" & strReportUrl & vbCrlf)
	Set pCmsDeployImport = Nothing
	Set pReportTime = Nothing
	Set fs = Nothing
End Sub