远程启动Qtp/UFT开始测试

On Error Resume Next 

'开始运行前关闭桌面所以的程序，避免出现意外错误

Close_Process("excel.exe") 


Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
Set myExcelBook = ExcelBook.WorkBooks.Open("D:\MyAutoTest\Config.xls")
Set myExcelSheet = myExcelBook.WorkSheets("ScriptPath")
GetExcleSheetRowsCount = myExcelSheet.UsedRange.Rows.Count

'设置自动化引擎的默认状态，脚本运行一旦出错（由场景恢复来写错误），则终止测试。

'采用qtp杀自己的方式不可行，采用杀这个引擎方式也不可取（不是qtp卡死，就是继续执行下个脚本）。

'最好的方式就是让这个脚本自己退出程序。

StatusRuned = "D:\MyAutoTest\StatusRuned.txt"
WriteNotepad StatusRuned,"Run"

'读取excel中每一行，然后分别启动qtp/uft 
For i = 1 To GetExcleSheetRowsCount
Set oppobj = createobject("quicktest.application","192.168.5.5")
oppobj.Launch 
oppobj.Visible = True
oppobj.windowstate = "Maximized"
oppobj.open myExcelSheet.cells(i,1).value
Set qtTest = oppobj.test
Set objRecovery = oppobj.test.settings.recovery
Set objResultsOpt = CreateObject("QuickTest.RunResultsOptions")
objResultsOpt.ResultsLocation = myExcelSheet.cells(i,2).value
qtTest.Run objResultsOpt
qtTest.Close
Set objResultsOpt = Nothing
Set qtTest = Nothing
Set oppobj = Nothing

'发现文件中为Err是停止循环

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.OpenTextFile(StatusRuned, 1)
Do Until fil.AtEndOfStream
Temp = fil.ReadLine
exit do
Loop
if instr(Temp ,"Err")   then 
i = GetExcleSheetRowsCount
end if

fil.Close
Set fso = Nothing 

next


ExcelBook.Quit
set ExcelSheet = Nothing
Set ExcelBook = Nothing


'关闭uft进程
wscript.sleep 5000
wscript.sleep 5000
call Close_Process("UFT.exe")


 '写状态函数
Sub WriteNotepad(MyFile,MyStr)
Dim fso, fil


'创建fso对象
Set fso = CreateObject("Scripting.FileSystemObject")

Set fil = fso.OpenTextFile(MyFile, 2)
fil.Write(MyStr)

'关闭文件
fil.Close

'释放文件
Set fso = Nothing


End Sub

'关闭指定进程
sub Close_Process(ProcessName)  
On Error Resume Next  
    for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ 'ѭ۷޸Ԍ  
  if Ucase(ps.name)=Ucase(ProcessName) then  
ps.terminate  
  end if  
    next  

end sub  

说明：

      如果想要通过其它电脑来运行这个脚本（通过telnet连接到qtp电脑），以启动UFT进行测试，需要实现QTP、EXCEL的 DCOM功能。