Scripts stops after performing a step when it has been initiated by schedule task.

Scripts stops after performing a step when it has been initiated by schedule task. - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others)
+--- Thread: Scripts stops after performing a step when it has been initiated by schedule task. (/Thread-Scripts-stops-after-performing-a-step-when-it-has-been-initiated-by-schedule-task)

Scripts stops after performing a step when it has been initiated by schedule task. - Ajit.2k6 - 03-08-2010

If i run manually its running fine. Why is that. Please help!!!
I have to click the PLAY button after that.
Thanks,

Ajit

RE: Scripts stops after performing a step when it has been initiated by schedule task. - Saket - 03-08-2010

please provide more details, paste your lines of code.

RE:Scripts stops after performing a step when it has been initiated by schedule task. - Ajit.2k6 - 03-08-2010

Following is my .vbs file from where i m initiating the test:

Code:
Set qtApp = CreateObject("QuickTest.Application")

qtApp.Launch

qtApp.Visible = True

'qtApp.Open "D:\Program Files\Mercury Interactive\QuickTest Professional\Tests\Creating a Gmail ID" 'this is the location of test scripts

Set qtTest = qtApp.Test

'Set QuickTest run options

qtApp.Options.Run.RunMode = "Fast"

qtApp.Options.Run.ViewResults = False

qtApp.Open "\\Ausyddata02\testing\QTP Common\Lab Tests\Automated Tests\Installing SiPass 2.50", True ' Open the test in read-only mode

' set run settings for the test

Set qtTest = qtApp.Test

qtTest.Run ' Run the test

'qtTest.Close ' Close the test

'qtApp.quit

Set qtTest = Nothing ' Release the Test object

Set qtApp = Nothing ' Release the Application object

'qtTest.Close

'qtApp.Quit

Thanks,

Ajit

RE: Scripts stops after performing a step when it has been initiated by schedule task. - Saket - 03-08-2010

where do you stuck in the code that you mentioned?

RE:Scripts stops after performing a step when it has been initiated by schedule task. - Ajit.2k6 - 03-08-2010

Code:
Function fFindLatestBuilt ()

          SystemUtil.Run "\\Ausydw2342\BUILDS\MP2.50","","\\Ausydw2342\BUILDS\MP2.50",""

        Window("MP2.50").Activate

        rCount = Window("MP2.50").WinListView("SysListView32").GetItemsCount

rCount = rCount -1

[b]BuiltNo = Window("MP2.50").WinListView("SysListView32").GetItem (rCount)[/b]

Dim fso6

            Set fso6 = CreateObject("Scripting.FileSystemObject")

If (fso6.FileExists ("\\Ausydw2342\BUILDS\MP2.50\"&BuiltNo&"\Setup\DISK1\Setup.exe")) Then

                        Datatable.Import ("\\Ausyddata02\testing\QTP Common\Lab Tests\DATA Files\LastBuiltNo.txt")

                        PBNo = DataTable.GetSheet("Global").GetParameter("BNo").ValueByRow(1)

'                        msgbox PBNo

'                        msgbox BuiltNo

        If strComp (PBNo, BuiltNo) = True Then

                        Dim fso5, MyFile

                        Set fso5 = CreateObject("Scripting.FileSystemObject")

                        Set MyFile = fso5.CreateTextFile("\\Ausyddata02\testing\QTP Common\Lab Tests\DATA Files\LastBuiltNo.txt", True)

                        MyFile.WriteLine("BNo")

                        MyFile.Write (BuiltNo)

                        MyFile.Close

                        Datatable.Import ("\\Ausyddata02\testing\QTP Common\Lab Tests\DATA Files\LastBuiltNo.txt")

                      s = 1

                        fFindLatestBuilt = s 

                        Reporter.ReportEvent micPass, "SiPass Installation Version available and used is: MP2.50\MP2.50."&bno&".00"&b&""&a, "This should be the latest availble SiPass Inte folder in the SiPass 2.50 directory" 

Else 

 Reporter.ReportEvent micWarning , "SiPass Integrated nightly built is not available" , "Please contact the developers "  

        End if

'        s = 0

'         fFindLatestBuilt = s 

''msgbox "A"

End if 

End Function

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

Code:
Sub sRemoveSiPassInteg()

Dim fso1, msg

    Set fso1 = CreateObject("Scripting.FileSystemObject")

If (fso1.FileExists("D:\Program Files\SiPass Integrated\SiPass.exe")) Then

    If Window("SiPass Integrated").Exist Then

            Window("SiPass Integrated").Activate

    End If

           Datatable.Import ("\\Ausyddata02\testing\QTP Common\Lab Tests\DATA Files\LastBuiltNo.txt")

        BNo = DataTable.GetSheet("Global").GetParameter("BNo").ValueByRow(1)

                SystemUtil.Run "\\Ausydw2342\BUILDS\MP2.50\"&bno&"\Setup\DISK1\Setup.exe"

                    While Window("SiPass integrated Setup").Exist = False

                    Wend

                    While  Window("SiPass integrated Setup").WinRadioButton("Remove").Exist = false

                    Wend

        [b]Window("SiPass integrated Setup").WinRadioButton("Remove").Set[/b]

        Window("SiPass integrated Setup").WinButton("Next >").Click

        Window("SiPass integrated Uninstall").WinButton("Next >").Click

                    While Window("SiPass integrated Setup").WinButton("Finish").Exist = False

                    Wend

        Window("SiPass integrated Setup").WinButton("Finish").Click

        Reporter.ReportEvent micPass, "SiPass Version Installed was: MP"&BNo, "SiPass "&BNo&" is successfully removed from this PC" 

                    Dim fso2

                    Set fso2 = CreateObject("Scripting.FileSystemObject")

                       fso2.DeleteFolder("D:\Program Files\SiPass Integrated")

Else

                    Dim fso3

                    Set fso3 = CreateObject("Scripting.FileSystemObject")

                    If (fso3.FolderExists("D:\Program Files\SiPass Integrated")) then

                                    Dim fso4

                                    Set fso4 = CreateObject("Scripting.FileSystemObject")

                                    fso4.DeleteFolder("D:\Program Files\SiPass Integrated")

                     End If

End If

End Sub

i am calling these two functions in my script from another .vbs file.
There are two conditions:
1. Sometimes it runs and stops at first "bold line
2. Sometimes it runs upto second bold line and hung

If i run this script manually (without Schedule task) its ok.

I dont know whats wrong with it.

Thanks,

Ajit

RE: Scripts stops after performing a step when it has been initiated by schedule task. - Saket - 03-08-2010

your second bold statements seems to be incomplete isn't it? does it work when you try without schedule task.

Code:
Window("SiPass integrated Setup").WinRadioButton("Remove").Set

in the first bold statement, you are trying to get an item from syslistview. make sure the item exists there with the number you have provided in rcount.

RE: Scripts stops after performing a step when it has been initiated by schedule task. - Ajit.2k6 - 03-08-2010

Yes Saket, it run fine when i run it without schedule task. Script itself has no issues but running through Schedule Task giving these problems

RE: Scripts stops after performing a step when it has been initiated by schedule task. - Saket - 03-08-2010

not sure what could be the reason
but can you give it a try in 'Normal' run mode instead of 'Fast'

comment the statement
'qtApp.Options.Run.RunMode = "Fast"
in your vbs.

let me know how it goes.

RE: Scripts stops after performing a step when it has been initiated by schedule task. - Ajit.2k6 - 03-10-2010

Thanks a lot Saket, its working. Changing "Fast" to "Normal" worked.

Regards,

Ajit

RE: Scripts stops after performing a step when it has been initiated by schedule task. - lakshman.us - 02-16-2016

We are using WPF applications, we using mouse move, key strokes and insight object in UFT code.

when the machine is locked the ALM scheduler is keep on running and few cases are failed.

Is there any way to schedule the script when machine is locked please give your suggestions.