51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2034|回复: 1
打印 上一主题 下一主题

[求助] vbs调用脚本报错

[复制链接]
  • TA的每日心情
    开心
    2015-5-5 13:21
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    跳转到指定楼层
    1#
    发表于 2013-12-9 18:01:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    本帖最后由 wsryyffs 于 2013-12-10 09:44 编辑

    我是用winxp的计划任务来调度vbs脚本,有时报错,有时没有问题。

    脚本:

    '创建QTP的实例
    Set obj = CreateObject("QuickTest.Application")
    obj.Launch
    '设置QTP的窗口为可见
    obj.Visible = True
    '将QTP窗口最大化
    obj.WindowState = "Maximized"
    obj.open "D:\test"   '所需调用的脚本路径和名称
    Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
    qtResultsOpt.ResultsLocation = "D:\xx\result"   

    '运行脚本
    obj.Test.Run qtResultsOpt
    obj.Quit
    Set qtResultsOpt = Nothing   
    Set obj=Nothing

    报错信息:
    ---------------------------
    Windows Script Host
    ---------------------------
    脚本: D:\work\qtp\kq\run.vbs
    行: 32
    字符: 1
    错误: 服务器出现意外情况。
    代码: 80010105
    源:  (null)
    ---------------------------
    确定   
    ---------------------------
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

    该用户从未签到

    2#
    发表于 2013-12-10 18:28:13 | 只看该作者
    '获取路径
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    road = WshShell.CurrentDirectory & "\"

    'Dim xlsApp,wkBook,wkSheet,RowCount,CaseArr(50)
    'Set xlsApp=CreateObject("Excel.Application")
    'Set wkBook=xlsApp.Workbooks.Open("F:\baison\WORK\bserp\BSERP_PG\QTP\QTP实现\QTP实现\TestData.xls")
    'Set wkSheet=wkBook.Worksheets("TestScenario")
    'RowCount=wkSheet.usedRange.Rows.Count
    'For i=2 To RowCount
    '        CaseArr(i-2)=wkSheet.Cells(i,1)
    'Next
    'wkBook.Close
    'xlsApp.Quit
    'Set wkSheet=Nothing
    'Set wkBook=Nothing
    'Set xlsApp=Nothing

    Dim qtApp
                    Set qtApp = CreateObject("QuickTest.Application")
                    qtApp.Launch
                    qtApp.Visible = True
                   
    'For i=0 To UBound(CaseArr)
    '        If Not IsEmpty(CaseArr(i)) Then       
                    qtApp.Open  road&"QTPRUN", False, False
                    'Set qtLibraries = qtApp.Test.Settings.Resources.Libraries
            'qtLibraries.Add "F:\baison\WORK\bserp\BSERP_PG\QTP\QTP实现\QTP实现\QTPRUN\aa.vbs"


                    qtApp.Test.run
                   
    '        End If
    'Next
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-6 09:28 , Processed in 0.077594 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表