Help for this page

Select Code to Download

Select or download this

$VAR1 = bless( {
       'Test' => bless( {
              'Environment' => bless( {}, 'Win32::OLE' ),
              ...

Select or download this


    my $testObj = Win32::OLE->new( $self->{qtp}->Test->Environment );
    $testObj->{'DUT_Version'} = "123";

    $self->{qtp}->Test->Environment->{'Value'} = $testObj;