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

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