Pure virtual function calll

[abidz05]

Hi All,
I'm trying to update the repository and I get the following error:

R6025
-Pure virtual function calll

My function is located in vbs file and called from the action

Code:

Dim RepositoryFrom Public Function RenameAllImages(Root) Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil") RepositoryFrom.Load "H:\temp\test.tsr" Dim ImageObj, PageObj, RepositoryFrom, RepositoryTo Dim TOCollection, TestObject, PropertiesCollection', Property Set TOCollection = RepositoryFrom.GetAllObjects("Test Objects") For i = 0 To TOCollection.Count - 1 Set TestObject = TOCollection.Item(i) RepositoryFrom.UpdateObject TestObject Set TestObject=nothing wait(3) If i>2 Then Exit for End If Next Set TOCollection=nothing 'Set RepositoryFrom=nothing End Function

I have also tried to place the following code out of the function, but i get the same results

Code:

Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil")

[aardvax]

I dont know which version of QTP you are using... I had the same problem when I tried working with ObjectRepositoryUtil inside QTP(9.5), Therefore I moved the code external to QTP...in a vbscript file...and removed a call inside QTP... Worked with ObjectRepositoryUtil independent of QTP
however it was working fine with QTP 9.1 inside QTP...