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...