Remote server machine does not exist

[eroshan]

Hi

I am using this .vbs file to start QTR test.

Code:

Dim qtpApp Dim qtpTest Set qtpApp = CreateObject("QuickTest.Application") qtpApp.Visible = true qtpApp.Open "C:\Documents and Settings\me\Desktop\bin\TestData", true Set qtpTest = qtpApp.Test qtpTest.Run qtpTest.Close qtpApp.quit Set qtTest = Nothing Set qtApp = Nothing

First time it works well but sometimes it gives this error

Code:

The remote server machine does not exist or is unavailable;'visible'

(This gave after i close the QTP manually. )

Thanks

[Saket]

Check into processes at Windows task manager on your system.
there must be a process running as QTAutomation agent.
end the process and it should work.

[eroshan]

Hi

Thanks Saket , It works now.

[sreekanth.peetla]

Option Explicit
''**********************************************************************

Code:

'Script Name: DriverScript 'Author: 'Date of Design: 12-Apr-2013 'Date of last Revision: 12-Apr-2013 'Functions Called: 'Description: 'This Script performs:- '1.Logging into the application '2.Closing Excel spreadsheets which are open '3.Importing the TestCase spreadsheet '4.Executing the Test Case by calling the corresponding actions

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

Code:

SystemUtil.CloseProcessByName("IExplore.EXE") SystemUtil.CloseProcessByName("EXCEL.exe") '***** Opening and retriving data from excel file Dim objExcel Dim intCntrl Dim strRun Dim strStatus Dim objworkbook Dim objExcelSheet Dim introwCount Dim intcolCount Dim intcounter Set objExcel=CreateObject("Excel.Application") Set objworkbook=objExcel.workbooks.open("D:\AutomationTesting\TestData\TestData.xls") Set objExcelSheet=objworkbook.worksheets("Run Sheet") introwCount=objExcelSheet.usedrange.rows.count intcolCount=objExcelSheet.usedrange.columns.count For intcounter=2 to introwCount-1 intCntrl=objExcelSheet.cells(intcounter,1) strRun=objExcelSheet.cells(intcounter,2) strStatus=objExcelSheet.cells(intcounter,3) If strRun ="Yes" then RunAction "Action1 ["&intCntrl&"]", oneIteration Wait(20) objExcel.objworkbook("TestData").Activate objExcelSheet.cells(intcounter,3).Value = "Executed" End If objExcel.DisplayAlerts = False Next 'Set objExcelSheet = Nothing objExcel.DisplayAlerts = False objExcel.Save objworkbook.Save objExcel.DisplayAlerts = True objExcel.Quit Set objExcel = Nothing

after completion of this execution it has to update the "Executed" in the test data excel sheet but here I am getting the error msg as

"The remote server machine does not exist or is unavailable: 'objworkbook'
Line (53): "objExcel.objworkbook("TestData").Activate "

The remote server machine does not exist or is unavailable: 'cells'
Line (55): "objExcelSheet.cells(intcounter,3).Value = "Executed"".

Kindly look into this and do the needful

Regards,

Sreekanth

[agarwl.anurag]

The excell object which you have defined gets set to nothing when the focus of script goes to the run the required script.It better you open the new instance of the excel again and write your result in that.

[Saket]

@sreekanth.peetla, Please open a new thread for the new query.