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

How to record application running on the Virtual machine?

845

---

How can i use virtual objects? If have i created one new virtual object in a virtual object manager by following instructions.

1691

---

How does QTP identify an object?

780

---

When should I use smart identification?

793

---

What is the latest version of qtp?

772

---

How to add verification steps to tests?

9398

---

How to find the difference between 2 dates in qtp?

802

---

How did you use regular expressions in QTP and also in WR?

2369

---

Explain the concept of object repository?

723

---

1 Folders in VSS 2 In navigation script there are 100 script i want to run first 50 and 37th script also not needed to run how to do this 3 What is navigation script,Driver script, business script what we are loaded in this script 4 use of resource tab 5 Difference between verification and validation give real scenario example 6 file scripting object when to use it 7 what are the problems you are faced while testing web application 8 difference between expert view and keyword view 9 difference between QTP 8.2 and QTP 9.2 navigation frame work please answer these questions from real time working people as early as possible

1786

---

Why do we use "Text checkpoint" If we can make use of it in "standard checkpoint" ?

1682

---

I AM TRYING PORT CODE FROM WINRUNNER TO QTP AND DON'T KNOW TO HOW TO CHECK THE ERRORS. IN WINRUNNER FUNCTION RETURNS EIGHER 0 OR -1 AGAINST WHICH RESULT CAN BE MADE PASS OR FAIL BUT IN QTP I DON'T SEE FUNCTIONS RETURNING ANY VALUE. APPRECIATE IF ANYONE COULD HELP ME CONVERTING FOLLWOING WINRUNNER CODE TO QTP. set_window("Customer Service"); rc = web_obj_get_text("Summary","#2","#4",ssn,""," ",1); if (rc != E_OK) { report_msg("[GetSubscriberSummary] Could Not get subscriber SSN; rc = "&rc); myRC = rc; } else { ssn = StripBlank(ssn); if (DEBUG) report_msg ("[GetSubscriberSummary] SSN: "&ssn); }

1992

---

assume i have few url link how will i dynamically call then using descriptive programming?

1779

---

how many maximum number of virtual users we can create?

1782

---

What is keyword driven framework?

815

---