Check whether QTP script is Opened in Read Only Mode?

Check whether QTP script is Opened in Read Only Mode?

Dim pTitle

pTitle= window("text:=QuickTest Professional - .*").GetROProperty("text")

If instr(1,right(pTitle,12),"(Read-Only)")<>0 then
 msgbox "Test Opened in Read Only Mode"
Else
 msgbox "Test Opened in Edit Mode"
End If

'*******************************************************

____________________________________________________________


Please send your Suggestions and Doubts to my yahoo group http://in.groups.yahoo.com/group/qtpsudhakar