为什么wscript找不到对象?
上一篇 /
下一篇 2008-01-02 11:24:16
/ 个人分类：—— QuickTest Pro
为什么wscrīpt找不到对象?
/m'e*zW}0我在
QTP脚本中想要实现与WR中一样的一个小功能,即设置弹出对话框的持续时间,时间到了自动消失,我用了WshShell的Popup
51Testing软件测试网 oX i8LB&?,b$@脚本如下
*{5[ |
E"d ^5H+f3J Y5G0Dim WshShell
51Testing软件测试网 vZ9GP"ISet WshShell = Wscrīpt.CreateObject("Wscrīpt.Shell")
51Testing软件测试网v F2I\zK,M3?
MWshShell.Popup("密码为"&mima, 5,"msgbox",1+32)=-1
Y`.D z5IB^-d&F!}0这个是最简单的,持续5秒种自动消失,不需
其他情况.
51Testing软件测试网!`RQk*PX+O但是总是出错,说Wscrīpt找不到对象,而我的脚本宿主本来就是Wscrīpt.exe
G)B sY[/J m7r0应该怎么办呢?需要安装什么东西吗?在哪
下载?
解决方法:
Dim WshShell
'w8b:R[ p j0Set WshShell = CreateObject("Wscrīpt.Shell")51Testing软件测试网6}~l(Pt ^
call WshShell.Popup("dfdfd", 5,"msgbox",1+32)
R4}(IS"r W0例子:在C盘中增加10个文档
0c3N3X.bIr0 h+@g ]V Wb T c0dim objdir51Testing软件测试网$f.T?(t/e#[S,M
set ōbjdir=Wscrīpt.CreateObject("scrīpting.filesystemobject")51Testing软件测试网(v d'\ ocd/|
for k=1 to 10
_n,E0g5E K)~J t}0anewfolder="c:\chapter" & k
~ l3?QVG W0z k0objdir.createfolder(anewfolder)
9[}pL t&IJ0next
!};EWX!yZE)t0#Qw
fE#J0以上的脚本直接在QTP里运行会提示不识别wscrīpt对象.
x+Bu*_T l2m/h P1G0p
v;du!n c0解决方法为把以上文档使用文档编辑器保存为VBS文档.然后在QTP里写以下的脚本
*j}*J4i3L1rhe0kiF9u-F(h l3\4f0Dim oShell
4f*vcN mJ0Set ōShell =CreateObject ("Wscrīpt.shell")
&k,T p.la-f-g D0oShell.run "cmd /K wscrīpt d:\测试脚本\tenfolder.vbs"
~x z9]2b i r0Set ōShell = Nothing
U6{|)@\\"Wozp051Testing软件测试网~+e*S FBn)i tE
hS] i,C5T:@*C
t0在QTP上运行后,就可以生成10个文件夹在C盘了.51Testing软件测试网$mI(w C p8j(t;zS
收藏
举报
TAG:
