• 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 work with Environment Variables
    ' How ==> Need QuickTest.Application Automation Object to do so
    ' Why ==> To Open a Driver Script (which could call other tests)
    '                                 To work with Environment Variables in QTP
    ' Author : GAReddy @ OneTestingCenter @QTP
    '****************************************************************** 
    '***************************************************************** 

    Dim oQTP   
    Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 
    oQTP.Launch ' Start QuickTest 
    oQTP.Visible = True ' Make the QuickTest application visible 

    ' Open the test 
    oQTP.Open "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestScripts\DriverScript", False
    ' Open a test named Driver Script
     
    ' Set some environment variables 
    oQTP.Test.Environment.Value("AppName") = "AnyWebApp" 
    oQTP.Test.Environment.Value("AppVersion") = "3.0" 
    oQTP.Test.Environment.Value("TestSuite") = "SmokeTest"
     
    oQTP.Test.Save ' Save the test   
    oQTP.Quit ' Exit QuickTest 
    Set oQTP = Nothing ' Release the Application object 
    '*********************************************************** 
    '***********************************************************
    Reactions:

    QTP - AOM - Working with Environment Variables


    'Automation Object Model

    '****************************************************************** 
    '******************************************************************
    ' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)
    ' What ==>  This is a QTP - AOM Script to Open QTP and to work with Environment Variables
    ' How ==> Need QuickTest.Application Automation Object to do so
    ' Why ==> To Open a Driver Script (which could call other tests)
    '                                 To work with Environment Variables in QTP
    ' Author : GAReddy @ OneTestingCenter @QTP
    '****************************************************************** 
    '***************************************************************** 

    Dim oQTP   
    Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 
    oQTP.Launch ' Start QuickTest 
    oQTP.Visible = True ' Make the QuickTest application visible 

    ' Open the test 
    oQTP.Open "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestScripts\DriverScript", False
    ' Open a test named Driver Script
     
    ' Set some environment variables 
    oQTP.Test.Environment.Value("AppName") = "AnyWebApp" 
    oQTP.Test.Environment.Value("AppVersion") = "3.0" 
    oQTP.Test.Environment.Value("TestSuite") = "SmokeTest"
     
    oQTP.Test.Save ' Save the test   
    oQTP.Quit ' Exit QuickTest 
    Set oQTP = Nothing ' Release the Application object 
    '*********************************************************** 
    '***********************************************************