合理的オブジェクトスクリプトコマンド

Sub Main 
    Dim Result As Integer 
    Dim sum As string 
    'Initially Recorded: 2003-7-21 11:07:34 
    'Script Name: jsq-object-script 
    StartApplication "C:\WINNT\system32\calc.exe" 
    Window SetContext, "Caption=calculator", "" 
    InputKeys "1{+}1{ENTER}" 
    Result= SQAGetProperty ("Type=Label;ObjectIndex=1", "Text", sum) 
    if left(sum,1)="2" then 
      SQALogMessage sqaPass, "Test passed", "" 
    else 
      SQALogMessage sqaFail, "Test failed", "" 
    end if        
    Window CloseWin, "", "" 
End Sub