定时启动QTP，并运行指定脚本，执行完毕后退出QTP

通过VBS脚本调用QTP，将vbs脚本设置成任务计划定时启动。

代码如下：

Set bj = CreateObject("QuickTest.Application")
obj.Launch
'设置QTP的窗口为可见
obj.Visible = True
'将QTP窗口最大化
obj.WindowState = "Maximized"
obj.open "E:\测试脚本路径"  

'加载对象库
Set MyObjectRepository = obj.Test.Actions("Action1").ObjectRepositories
If MyObjectRepository.Find ("C:\Program Files\HP\QuickTest Professional\Repository1.tsr") = -1 Then 'QTP项目所对应的对象库文件（可以自己导出）
MyObjectRepository.add "C:\Program Files\HP\QuickTest Professional\Repository1.tsr"
OutputLoadObjectRepository = "True"
Else
OutputLoadObjectRepository = "False"
End If

'运行脚本
obj.Test.Run

'退出
obj.quit
set bj=Nothing