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")