如何通過vbscript檢查在QTP中開發的測試腳本中是否存在本地Object？

Question

假設我有一個在qtp中開發的測試腳本，現在我的要求是檢查這個特定的測試用例是否有一個通過VBscript與它關聯的本地對象？

Answer 1

VBScript中的以下功能可以檢查當前測試是否在其對象存儲庫中具有特定名稱的對象。

Function CheckIfObjectPresentInOR(ByVal LogicalName) 
    Set ObjectRepositoryUtil = CreateObject("Mercury.ObjectRepositoryUtil") 
    ObjectRepositoryUtil.Load "<Path of the Object Repository>" 
    Set TOCOllection = ObjectRepositoryUtil.GetAllObjects 
    booFunctionStatus = FALSE 
    For i = 0 To TOCollection.Count - 1 
      If ObjectRepositoryUtil.GetLogicalName(TOCOllection.Item(i)) = LogicalName Then 
        booFunctionStatus = TRUE 
        Exit For 
      End If 
    Next 
    Set ObjectRepositoryUtil = Nothing 
    Set TOCOllection = Nothing 
    CheckIfObjectPresentInOR = booFunctionStatus 
End Function 

編輯：

Function CheckIfObjectPresentInOR 
    Set ObjectRepositoryUtil = CreateObject("Mercury.ObjectRepositoryUtil") 
    ObjectRepositoryUtil.Load "<Path of the Object Repository>" 
    booFunctionStatus = FALSE 
    Set TOCOllection = ObjectRepositoryUtil.GetAllObjects 
    If TOCOllection.Count > 0 Then 
     booFunctionStatus = TRUE 
    End If 
    Set ObjectRepositoryUtil = Nothing 
    Set TOCOllection = Nothing 
    CheckIfObjectPresentInOR = booFunctionStatus 
End Function