Hi,
USe below code:
Use the above code for refrence and modify it as per your need.
Regards,
Sankalp
USe below code:
Code:
Function createDescription(vs_micClass,vs_Text)
'Variable Declaration:
Dim vo_ResDesc
'Code:
Set vo_ResDesc=Description.Create()
vo_ResDesc("micclass").value=vs_micClass
vo_ResDesc("text").Value=vs_Text
vo_ResDesc("text").regularexpression=False
Set createDescription=vo_ResDesc
End Function
Set vo_ResDesc=createDescription("Link",<name>)
Set vo_ResLink=Browser("").Page("").ChildObjects(vo_ResDesc)
If vo_ResLink.Count<>0 Then
Reporter.ReportEvent micDone ,"Existence of XX","YY"
vo_ResLink(0).Click
else
Reporter.ReportEvent micFail ,"Existence of responsibilty","YY"
ExitTest
End If
Use the above code for refrence and modify it as per your need.
Regards,
Sankalp