查看完整版本: QTP调用VBS的问题

higkoo 2007-6-18 13:15

QTP调用VBS的问题

[font=楷体_GB2312][size=4][color=purple]我想用QTP调用VBS脚本,代码如下:[/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple][/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple]ExecuteFile  "c:\MyFuctions.vbs"[/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple][/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple]MyFuctions.vbs内容:[/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple]Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "net send COMPUTERNAME " & "Hello!"[/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple][/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple]单独执行VBS是可以通过的,但使用QTP调用,就提示:“缺少对象WScript”[/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple][/color][/size][/font]
[font=楷体_GB2312][size=4][color=purple]哪位大侠知道是哪里的问题?[/color][/size][/font]

winfood 2007-6-18 14:07

在试验QTP里面的例子时遇到过类似问题,把Set WshShell = WScript.CreateObject("WScript.Shell")改成
Set WshShell = CreateObject("WScript.Shell")就没有问题了。错误是因为在QTP里面没有定义WScript这个类型。

我们公司的安全策略把net send禁止了,所以后面那个语句不能验证是否正确。

higkoo 2007-6-18 14:36

搞定

[quote]原帖由 [i]winfood[/i] 于 2007-6-18 14:07 发表 [url=http://bbs.51testing.com/redirect.php?goto=findpost&pid=571624&ptid=79962][img]http://bbs.51testing.com/images/common/back.gif[/img][/url]
在试验QTP里面的例子时遇到过类似问题,把Set WshShell = WScript.CreateObject("WScript.Shell")改成
Set WshShell = CreateObject("WScript.Shell")就没有问题了。错误是因为在QTP里面没有定义WScript这个类 ... [/quote]


  解决问题,  就如WINFOOD所述……

dyq 2007-7-16 14:27

小支持一下。。。

v_v 2007-8-6 16:25

学到了
”安全策略把net send禁止了“也会涉及到这的。。

远野志贵 2008-7-21 15:38

楼上的连NET SEND都涉及到了,看来是高手了.

假装不在 2008-7-21 16:10

进来学习下。

hyi 2008-7-30 08:57

学习了

dycadrtf 2008-7-30 10:04

强,学习了

lushuishui 2008-7-30 17:13

学习了
页: [1]
查看完整版本: QTP调用VBS的问题