QC Projects Error when backing up through VBScript

Mod Message: This post was split from an inactive topic. Refer this link for old topic.

=================================xxx=============================================

Is there a solution of this question asked a few years ago? I am having the similar error for the same VBA code. Unless I am mistaken, the problem doses not look to me arising from the split command in relations to semi colon and colon.  Here is a reference to this code that has more info: http://qualitesting.blogspot.ca/2013/01/how-to-make-scheduled-backup-qc-project.html

Currently, it fails on the following line: sa.ExportProject v_domain, v_project, v_fileName with error message: "Run-time error '-2147220350 (80040482): Invalid server response [ERR-SEP]. Any feedback to correct this error will be appreciated.

Thank you in advance.

Code: 

Sub ALM_Backup()Dim v_qcURL, sa, v_username, v_paswordDim v_domain, v_project, v_date, v_fileName, bugId, v_summaryDim v_projectList, v_domainProject, v_domainProjectArray' The following code is to move the existing files from to source to destination folderDim fsoDim sfol AsStringDim dfol AsStringsfol ="C:\ALM Backup"dfol ="C:\ALM Backup Archive"Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile (sfol &"\*.*"), dfol 'Change "\*.*" to "\*.qcp"
v_qcURL ="https://qcurl"
v_projectList ="Domain1:Project1;Domain2:Project2;Domain3:Project3"
v_username ="userid"v_password ="password"ForEach v_domainProject In Split(v_projectList,";")
  v_domainProjectArray = Split(v_domainProject,":")
  v_domain = v_domainProjectArray(0)
  v_project = v_domainProjectArray(1)
  v_year = Year(Now)
  v_month = Month(Now)
  v_day = Day(Now)
  v_hour = Hour(Now)
  v_minute = Minute(Now)
  v_second = Second(Now)If v_month <10Then
  v_month ="0"& v_monthEndIf
If v_day <10Then
   v_day ="0"& v_dayEndIf
If v_hour <10Then
   v_hour ="0"& v_hourEndIf
If v_minute <10Then
   v_minute ="0"& v_minuteEndIf
If v_second <10Then
   v_second ="0"& v_secondEndIf

v_date = v_year & v_month & v_day & v_hour & v_minute & v_second

v_fileName ="C:\ALM_Backup"& v_date &"_"& v_project &".qcp"
v_summary ="For project <"& v_domainProject &"> backup started: "& v_date

bugId = openDefect(v_summary)Set sa = CreateObject("SAClient.SaApi")
sa.Login v_qcURL, v_username, v_password


sa.SendAllQualifiedNow "IT","QA_Internal_Projects"
sa.SendMessageToProjectConnectedUsers v_domain, v_project,"This project is going to be deactivated due to maintenence."
sa.DisconnectProject v_domain, v_project
sa.DeactivateProject v_domain, v_project

' Following line is generation error sa.ExportProject v_domain, v_project, v_fileName
 sa.ActivateProject v_domain, v_projectSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFile(v_fileName)
fixAndCloseDefect bugId, v_fileName &": "& Round((f.Size /1024)/1024,2)&" MB"
sa.SendAllQualifiedNow "IT","QA_Internal_Projects"Next
sa.LogoutEndSubFunction openDefect(p_summary)
  v_detectionDate = Day(Now)&"."& Month(Now)&"."& Year(Now)
  If Day(Now)<10Then
    v_detectionDate ="0"& Day(Now)&"."& Month(Now)&"."& Year(Now)EndIf
If Month(Now)<10Then
    v_detectionDate = Day(Now)&".0"& Month(Now)&"."& Year(Now)EndIf
If Month(Now)<10And Day(Now)<10Then
   v_detectionDate ="0"& Day(Now)&".0"& Month(Now)&"."& Year(Now)EndIfSet tdc = CreateObject("TDApiOle80.TDConnection")
tdc.InitConnectionEx "http://qcurl"
tdc.Login "userid","password"
tdc.Connect "IT","QA_Internal_Projects"Set bfact = tdc.BugFactorySet mybug = bfact.AddItem(Null)
 mybug.Summary = p_summary
 mybug.Status ="Open"
 mybug.Field("BG_SEVERITY")="2-Medium"
 mybug.DetectedBy ="userid"
 mybug.Field("BG_DETECTION_DATE")=Date
 mybug.Post
 bugId = mybug.ID
 tdc.Logout
 tdc.Disconnect
 openDefect = bugId
EndFunctionFunction fixAndCloseDefect(p_bugId, p_comment)Set tdc = CreateObject("TDApiOle80.TDConnection")
 tdc.InitConnectionEx "https://qcurl"
 tdc.Login "userid","passsword"
 tdc.Connect "IT","QA_Internal_Projects"Set bfact = tdc.BugFactorySet bgfilter = bfact.Filter

 bgfilter.Filter("BG_BUG_ID")= p_bugIdSet bglist = bgfilter.NewListForEach theBug In bglistSet bg = bfact.Item(theBug.ID)
  bg.Field("BG_STATUS")="Closed"
  bg.Field("BG_DEV_COMMENTS")="Backup completed on <backup_host>: "& p_comment
  bg.PostNext

  tdc.Logout
  tdc.Disconnect
EndFunction