<h1> Descriptive Programming Examples In QTP </h1>

Scenario : Let us script a scenario, where object properties changed 

Dim sLinkDescription

Dim sLinks
Dim lnkCount

Set sLinkDescription=Description.Create
sLinkDescription("name").value="signin"

set sLinks=browser("micclass:=Browser").page("micclass:=Page").ChildObjects(sLinkDescription)

if sLinks.count <>0 then

sLinks(0).click

End If