Script- To Count no. of links in a specified web page

Dim objDesc, objColl, i, strName


systemutil.Run "iexplore","http://172.16.0.7:81/BTES/index.php?option=com_thopper&active=asg&asg=62"
Set objDesc= Description.Create
objDesc ("micclass").value="Link"
Browser("BTES - Home").Page("BTES - Home").WebEdit("username").Set "admin"
Browser("BTES - Home").Page("BTES - Home").WebEdit("passwd").SetSecure "542505f4517fb037796242b7b900d15a"
Browser("BTES - Home").Page("BTES - Home").WebButton("Login").Click
Set objColl=Browser("BTES - Home").Page("BTES - Home").ChildObjects(objDesc)
msgbox objColl.count
For i=0 to objColl.count-1
    print objColl(i).GetROProperty("text")
    Next


OUTPUT_________________________________________________________________