Unable to modify the QTP script in QC using Automation Object Model. Please find the below code used and let me know where I went wrong.

Code:
—–

Dim qtApp
Set qtApp = createobject("Quicktest.Application")
qtApp.Launch
msgbox "launched"
qtApp.Visible=True
qtApp.TDConnection.Connect "ServerURL", "DomainName", "ProjectName", "UserName", "Password",False
msgbox "connect"
If qtApp.TDConnection.IsConnected Then
    msgbox "connected"
    qtApp.Open "[QualityCenter] Subject\\path to QTP test\\SampleTest",False
    qtApp.Test.CheckOut
Else
    MsgBox "Cannot connect to Quality Center"
End If
context = qtApp.Test.Actions(1).GetScript

context = context&vbNewLine&"'End of Script"

qtApp.Test.Actions(1).SetScript(context)

qtApp.Test.Save


If qtApp.Test.VerCtrlStatus = "CheckedOut" Then
    qtApp.Test.CheckIn
    msgbox "checked In"
End If


qtApp.TDConnection.Disconnect

Set qtApp = Nothing

I didn’t find any change in the script when I had a look at the QTP script in QC after check-in the script modified. Please help me in resolving this issue.

Environment Details:
——————–
QTP 11.0 – 32bit Application, QC 9.2, Microsoft Windows Server 2003 – 64bit OS.

Ran the above script using vbs file from the command prompt "C:\\WINDOWS\\SysWOW64\\cmd.exe" using the command {C:\\WINDOWS\\SysWOW64>cscript.exe "path to vbs file"}.