如何在uft中更新存储库对象？

Question

我使用的是UFT 11.53，Windows 8.1 Pro和vbscripts。 我有一个问题：是否可以使用VBScript自动将对象添加到对象存储库？

我的问题：我有一个应用程序，我可以自动化测试和资格。我想在我的存储库对象中添加一个新对象（使用vbscript）。

以下是我尝试的代码：

Dim RepositoryFrom   
Dim ParentObject   

ObjectRepositoryPath="D:\repository.tsr"  

'Creating Object Repository  utility Object   
Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil")   

'Load Object Repository   
RepositoryFrom.Load ObjectRepositoryPath
Set oWebElement = WebElement(""&str) 'str = "PR1500073LRBA", it's an element of my table
Set ParentObject = Browser("fia").Page("fia_3")

RepositoryFrom.AddObject oWebElement, ParentObject, "reference"

RepositoryFrom.Save

Set RepositoryFrom = nothing
Set oWebElement = nothing
Set oParent = nothing

使用此代码，我发现了一条消息错误：
＆＃39; ADDOBJECT＆＃39; - 一般错误。
第（63）行：＆＃34; RepositoryFrom.AddObject oWebElement，ParentObject，＆＃34; reference＆＃34;＆＃34;。

你知道为什么我会传这个消息吗？

谢谢：）