Try the following function:

Function CheckIfObjectPresentInOR
Set ObjectRepositoryUtil = CreateObject(''Mercury.ObjectRepositoryUtil'')
ObjectRepositoryUtil.Load ''''
booFunctionStatus = FALSE
Set TOCOllection = ObjectRepositoryUtil.GetAllObjects

If TOCOllection.Count >0 Then
booFunctionStatus = TRUE
EndIf

Set ObjectRepositoryUtil = Nothing
Set TOCOllection =Nothing
CheckIfObjectPresentInOR = booFunctionStatus
End Function