Answer Posted / murali raju

I am sending the complete script to connect Quality Center

'***********************************************************
************************************************************
*

'Description:

'

'This example connects to a Quality Center project, opens a
test (checks it out, if applicable),

'updates the Active Screen values and test object
descriptions, and, if applicable,

'checks the modified test back into the Quality Center
project.

'

'Assumptions:

'The test1 test is not already checked out.

'There is no unsaved test currently open in QuickTest.

'For more information, see the example for the Test.SaveAs
method.

'When QuickTest opens, it loads the add-ins required for
the test.

'For more information, see the example for the
Test.GetAssociatedAddins method.

'***********************************************************
************************************************************
*



Dim qtApp 'As QuickTest.Application ' Declare the
Application object variable

Dim qtUpdateRunOptions 'As QuickTest.UpdateRunOptions '
Declare an Update Run Options object variable

Dim qtRunResultsOptions 'As QuickTest.RunResultsOptions '
Declare a Run Results Options object variable

Dim blsSupportsVerCtrl ' Declare a flag for indicating
version control support



Set qtApp = CreateObject("QuickTest.Application") ' Create
the Application object

qtApp.Launch ' Start QuickTest

qtApp.Visible = True ' Make the QuickTest application
visible



' Make changes in a test on Quality Center with version
control

qtApp.TDConnection.Connect "http://tdserver/tdbin", _
"MY_DOMAIN", "My_Project", "James", "not4you",
False ' Connect to Quality Center



If qtApp.TDConnection.IsConnected Then ' If connection is
successful

blsSupportsVerCtrl =
qtApp.TDConnection.SupportVersionControl ' Check whether
the project supports vervion control



qtApp.Open "[QualityCenter] Subject\tests\test1",
False ' Open the test

If blsSupportsVerCtrl Then ' If the project supports
version control

qtApp.Test.CheckOut ' Check out the test

End If



' Prepare the UpdateRunOptions object

Set qtUpdateRunOptions = CreateObject
("QuickTest.UpdateRunOptions") ' Create the Update Run
Options object

' Set the Update Run options: update the Active Screen
and test object descriptions. Do not update checkpoint
values

qtUpdateRunOptions.UpdateActiveScreen = True

qtUpdateRunOptions.UpdateCheckpoints = False

qtUpdateRunOptions.UpdateTestObjectDescriptions = True



' Prepare the RunResultsOptions object

Set qtRunResultsOptions = CreateObject
("QuickTest.RunResultsOptions") ' Create the Run Results
Options object

qtRunResultsOptions.ResultsLocation
= "<TempLocation>" ' Set a temporary results location



'Update the test

qtApp.Test.UpdateRun qtUpdateRunOptions,
qtRunResultsOptions ' Run the test in Update Run mode

qtApp.Test.Description = qtApp.Test.Description &
vbNewLine & _
"Updated: " & Now ' Document
the update in the test's description (Test Settings >
Properties tab)



qtApp.Test.Save ' Save the test



If blsSupportsVerCtrl And qtApp.Test.VerCtrlStatus
= "CheckedOut" Then ' If the test is checked out

qtApp.Test.CheckIn ' Check it in

End If



qtApp.TDConnection.Disconnect ' Disconnect from Quality
Center

Else

MsgBox "Cannot connect to Quality Center" ' If
connection is not successful, display an error message.

End If



qtApp.Quit ' Exit QuickTest

Set qtUpdateRunOptions = Nothing ' Release the Update Run
Options object

Set qtRunResultsOptions = Nothing ' Release the Run Results
Options object

Set qtApp = Nothing ' Release the Application object

For which type of projects the iterative model is not suitable?

1824

---

Hi we are running tests remotely from quality center and pushing tests into qtp boxes remotely, and it does execution but while uploading results back into quality center it hangs in qtp box.If any one come across similar problem, please send me details how to handle this. Thanks kris

2151

---

I created 3 actions in test suppose I want to run action 1 in single time, action 2 is 4 time what I do?

990

---

How to Open FireFox using descriptive programing? If my question is not clear, i will give an Example To Open Internet Explorer, We use Set IE = CreateObject(InternetExplorer.Application) IE.Navigate "www.yahoo.com In the same i need to open yahoo.com in firefox. Can any one tell me what is the server name of firefox to create an object

3029

---

Why is action split used by qtp?

923

---

The hybrid framework can be implemented for any application. Is it true?

1051

---

Is it possible to switch between recording modes during a test creation?

986

---

What are the types of object repository in qtp?

974

---

HOW AUTOMATE TEST SCRIPT ? what time it will do? after gneration of basic script or Any , Plz explain detailed?

2143

---

I am sathish , i want to test the Application of JIL.org ,Mobile Emulator ,by using QTP10.0. I am trying to do testing on that Application , but Child Objects are not identified by the QTP. Please can any one help me

1847

---

How to do the scripting. Is there any inbuilt functions in qtp as in qtp-s.

937

---

Hi any body pls help me for QTP 11.0 software free demo version. i have to practice. Kindly send the link.or where i have to download.

2013

---

After executing the script in qtp suppose i found some script execute successfully and found some error.So how to report the status for both (i.e pass and fail report)in test director. For "fail" We use "defect tab" in testdirector. But for "pass" how to report it to TL.what is the process plz anybody ans

2089

---

hi i want license key for qtp 9.2 pls its adjust product name : quick test professional locking code :8 - 54A6A license type : seat license maintenance number : 88888888-8888 pls send license key to my email id borusu.ramkumar@gmail.com

4063

---

How do know the number of browsers opened?

1029

---