vbs调用QTP对象并自动执行脚本

'创建QTP的实例
Set bj = CreateObject("QuickTest.Application")
obj.Launch
'设置QTP的窗口为可见
obj.Visible = True
'将QTP窗口最大化
obj.WindowState = "Maximized"
obj.open "C:\XX\0105调试"  '所需调用的脚本路径和名称

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

'加载函数库
Set qtLibraries = obj.Test.Settings.Resources.Libraries
If qtLibraries.Find("C:\xx\0105.vbs") = -1 Then
qtLibraries.Add "C:\xx\0105.vbs", 1
End If

'运行脚本
obj.Test.Run