• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.


    'Automation Object Model

    '********************************************************************************
    '********************************************************************************
    ' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)
    '  What ==>  This is a QTP - AOM Script to Open QTP and to Connect with QualityCenter Server
    ' How ==> Need QuickTest.Application Automation Object to do so
    ' Why ==> To Run scripts (may be multipls tests ...one by one) from Quality Center without opening QTP by means of QTP- AOM Script
    ' Author : GAReddy @ OneTestingCenter @ QTP
    '******************************************************************************
    '******************************************************************************

    Dim oQTP ' Declare the Application object variable 
    Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 
    oQTP.Launch ' Start QuickTest 
    oQTP.Visible = True ' Make the QuickTest application visible 
     
    ' Provide Quality Center Information
    oQTP.TDConnection.Connect "QualityCenterURL", "DomainName", "ProjectName", "UserName", "Password", False ' Connect to Quality Center 
     
    If oQTP.TDConnection.IsConnected Then 
    ' Check if the Connection to QC is successful .. If connection is successful 
     MsgBox "Connection to QualityCenter is sucessfully established" 
    Else 
        MsgBox  "Connection to QualityCenter is Failed" 
    End If 
    oQTP.Quit ' Exit QuickTest 
    Set oQTP = Nothing ' Release the Application object

    '*********************************************************************************
    '*********************************************************************************
    Reactions:

    QTP - AOM - Open QTP and Connect to QC


    'Automation Object Model

    '********************************************************************************
    '********************************************************************************
    ' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)
    '  What ==>  This is a QTP - AOM Script to Open QTP and to Connect with QualityCenter Server
    ' How ==> Need QuickTest.Application Automation Object to do so
    ' Why ==> To Run scripts (may be multipls tests ...one by one) from Quality Center without opening QTP by means of QTP- AOM Script
    ' Author : GAReddy @ OneTestingCenter @ QTP
    '******************************************************************************
    '******************************************************************************

    Dim oQTP ' Declare the Application object variable 
    Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 
    oQTP.Launch ' Start QuickTest 
    oQTP.Visible = True ' Make the QuickTest application visible 
     
    ' Provide Quality Center Information
    oQTP.TDConnection.Connect "QualityCenterURL", "DomainName", "ProjectName", "UserName", "Password", False ' Connect to Quality Center 
     
    If oQTP.TDConnection.IsConnected Then 
    ' Check if the Connection to QC is successful .. If connection is successful 
     MsgBox "Connection to QualityCenter is sucessfully established" 
    Else 
        MsgBox  "Connection to QualityCenter is Failed" 
    End If 
    oQTP.Quit ' Exit QuickTest 
    Set oQTP = Nothing ' Release the Application object

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