关于QTP脚本自动调用

qijunhaha

我在QTP里的代码是:
ExecuteFile "f:\xx\temp.vbs"
Call a()

我的temp.vbs的代码是:
Public Function a()
dim WshShell
dim s

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "cmd"
WshShell.AppActivate"c:\windows\system32\cmd.exe"
WScript.Sleep 200

WshShell.SendKeys"ftp localhost"
WshShell.SendKeys"{ENTER}"
WshShell.AppActivate"ftp.exe "
WshShell.SendKeys"toptea"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"toptea"
WshShell.SendKeys"{ENTER}"

'读文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("D:\QTP\Tests\ChinaMobileBOMC\put.txt", 1)
s = ts.ReadLine
ts.Close

'在远程生成文件夹并改变远程目录到新建文件夹下
WshShell.SendKeys"mkdir "+s                       
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"cd "+s                                
WshShell.SendKeys"{ENTER}"

WshShell.SendKeys"put D:\QTP\Tests\ChinaMobileBOMC\"+s+"\Report\Results.xml"        '上传本地文件到远程
WshShell.SendKeys"{ENTER}"

WshShell.SendKeys"bye"
WshShell.SendKeys"{ENTER}"
End function


现在一运行就报缺少wscript对象错误.我的脚本双击执行是可以的,请问我这个问题出在什么地方啊?应该怎么解决啊?谢谢了.

zhuyuancan

Set WshShell = WScript.CreateObject("WScript.Shell")
改为
Set WshShell = CreateObject("WScript.Shell")
呢

qijunhaha

改过以后报语法错误!大家侃侃怎么解决啊?先谢谢大家了,会的朋友帮个忙

厍仕杰

可以在QTP里面这样写：Dim oShell
Set oShell =CreateObject ("WSCript.shell")
oShell.run "cmd /K wscript f:\xx\temp.vbs"
Set oShell = Nothing

LittleDuck

我以前也碰到过这个问题，就是在第一行报错：缺少wscript对象。
当时新建了一个.vbs文件，把lib里面的内容（也就是类似于你的temp.vbs）拷贝进去，把executefile的对象指向新建的这个文件。就OK了。
你可以试试。

qijunhaha

问题已经解决了,去掉WScript.Sleep 200这句就正常了,大家的方法我也试试,先谢谢大家了,呵呵