Quality Center / ALM Practitioners Forum
cancel

QC Projects Error when backing up through VBScript

SOLVED
Go to solution
Highlighted
Sohel Respected Contributor..
Respected Contributor..

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 folder

Dim fsoDim sfol As String
Dim dfol As Stringsfol = "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" For Each 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 < 10 Then
v_month
= "0" & v_month End If
If v_day < 10 Then
v_day
= "0" & v_day End If
If v_hour < 10 Then
v_hour
= "0" & v_hour End If
If v_minute < 10 Then
v_minute
= "0" & v_minute End If
If v_second < 10 Then
v_second
= "0" & v_second End If

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_project Set 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.Logout End Sub Function openDefect(p_summary)
v_detectionDate
= Day(Now) & "." & Month(Now) & "." & Year(Now)
If Day(Now) < 10 Then
v_detectionDate
= "0" & Day(Now) & "." & Month(Now) & "." & Year(Now) End If
If Month(Now) < 10 Then
v_detectionDate
= Day(Now) & ".0" & Month(Now) & "." & Year(Now) End If
If Month(Now) < 10 And Day(Now) < 10 Then
v_detectionDate = "0" & Day(Now) & ".0" & Month(Now) & "." & Year(Now) End If Set tdc = CreateObject("TDApiOle80.TDConnection")
tdc
.InitConnectionEx "http://qcurl"
tdc
.Login "userid", "password"
tdc
.Connect "IT", "QA_Internal_Projects" Set bfact = tdc.BugFactory Set 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
End Function Function 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.BugFactory Set bgfilter = bfact.Filter bgfilter.Filter("BG_BUG_ID") = p_bugId Set bglist = bgfilter.NewList For Each theBug In bglist Set bg = bfact.Item(theBug.ID)
bg
.Field("BG_STATUS") = "Closed"
bg
.Field("BG_DEV_COMMENTS") = "Backup completed on <backup_host>: " & p_comment bg.Post Next

tdc
.Logout tdc.Disconnect
End Function

 

1 ACCEPTED SOLUTION

Accepted Solutions
Sohel Respected Contributor..
Respected Contributor..
Solution

Re: Error while taking Backup of QC Projects through VBScript

I found the reason why the error was generating. 

I have just changed v_fileName variable to have a slash

Previously it was: 

v_fileName = "C:\ALM_Backup" & v_date & "_" & v_project & ".qcp"

Changed to: 

v_fileName = "C:\ALM_Backup\" & v_date & "_" & v_project & ".qcp"

The reason the error was happening because without the newly added backslash after "ALM_Backup", the program was trying to save the file inside the C directory not the C:\ALM_Backup directory. 

The code is working now and I am able to backup projects into qcp files. 

 

 

3 REPLIES
Outstanding Contributor... ameyjo Outstanding Contributor...
Outstanding Contributor...

Re: Error while taking Backup of QC Projects through VBScript

Based in the code, you want to backup all your project defects, please let me know if I am right.

cordially

"HP Support
If you find this or any post resolves your issue, please be sure to mark it as an accepted solution"
Sohel Respected Contributor..
Respected Contributor..

Re: Error while taking Backup of QC Projects through VBScript

Thanks for your response. I am trying to export all projects in the following string into .qcp files

v_projectList = "Domain1:Project1;Domain2:Project2;Domain3:Project3"
Sohel Respected Contributor..
Respected Contributor..
Solution

Re: Error while taking Backup of QC Projects through VBScript

I found the reason why the error was generating. 

I have just changed v_fileName variable to have a slash

Previously it was: 

v_fileName = "C:\ALM_Backup" & v_date & "_" & v_project & ".qcp"

Changed to: 

v_fileName = "C:\ALM_Backup\" & v_date & "_" & v_project & ".qcp"

The reason the error was happening because without the newly added backslash after "ALM_Backup", the program was trying to save the file inside the C directory not the C:\ALM_Backup directory. 

The code is working now and I am able to backup projects into qcp files. 

 

 

Top Contributors Last 30 Days