Descriptive Programming For Playing a Video in Youtube

QTP Script to play a video(qtp scripts)in Youtube.

Systemutil.Run"iexplore","www.youtube.com"
Browser("name:=YouTube - Broadcast Yourself.").Page("title:=YouTube.*").WebEdit("name:=search_query","html id:=masthead-search-term").Set "qtp scripts"
Browser("name:=YouTube - Broadcast Yourself.").Page("title:=YouTube.*").WebButton("name:=Search","html id:=search-button").Click
Browser("name:=YouTube - Broadcast Yourself.").Page("title:=YouTube.*").Link("name:=QTP Scripts","html id:=video-long-title-qI_5rL7iGkI").Click