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

Dim strImportFile
strImportFile = ""
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\Import.txt",8,True,0)
	ReportFile.WriteLine("Import Error @ " & reportTime & "." & vbCrlf & "Error Message: " & errorMsg & vbCrlf)
End Sub

Sub Import(strImportFile)
	Dim pCmsDeployImport
	Dim pImportOptions
	Dim pReportTime
	On Error Resume Next
	Set pCmsDeployImport = CreateObject("CmsDeployServer.CmsDeployImport.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
	Set pImportOptions = pCmsDeployImport.Options
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployImport = Nothing
		Set pImportOptions = Nothing
		Exit Sub
	End If
	pImportOptions.IncludeRightsGroups = 2
	pImportOptions.IncludeCreatedBy = 1
	pImportOptions.RightsOnAdd = 1
	pImportOptions.RightsOnReplace = 2
	Dim strReportUrl
	strReportUrl = pCmsDeployImport.Import(strImportFile)
	If ( Err.Number <> 0 ) Then
		Call WriteErrorsToFile(now,Err.Description)
		Set pCmsDeployImport = Nothing
		Set pImportOptions = 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\Import.txt",8,True,0)
	ReportFile.WriteLine("Import Completed @ " & pReportTime & "." & vbCrlf & "Report URL: http://localhost" & strReportUrl & vbCrlf)
	Set pCmsDeployImport = Nothing
	Set pImportOptions = Nothing
	Set pReportTime = Nothing
	Set fs = Nothing
End Sub