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

[Ajit.2k6]

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

Ajit

[Saket]

please provide more details, paste your lines of code.

[Ajit.2k6]

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

[Saket]

where do you stuck in the code that you mentioned?

[Ajit.2k6]

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

[Saket]

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.

[Ajit.2k6]

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

[Saket]

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.

[Ajit.2k6]

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

Regards,

Ajit

[lakshman.us]

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.