QTP相关的25个小技巧(上)

发表于:2010-8-30 13:41

字体: | 上一篇 | 下一篇 | 我要投稿

 作者:未知    来源:51Testing软件测试网采编

  7.Q:WSH的应用方法

  A:WSH 实际上是一个脚本语言的运行环境,它之所以具备强大的功能,是在于其充分挖掘了脚本语言的潜力。因此,如果抛开脚本语言而空谈 WSH ,那实际上就没有了意义。而如果再展开来讲述脚本语言,显然就离开了今天的主题。

  在这种情况下,只好采取一种折衷的方法:给大家推荐几个脚本文件利用 WSH 执行任务的实例,希望大家能通过这些例子对 WSH 的使用有一个初步的认识。

  脚本文件的编写十分方便,你可以选用任意一个文字编辑软件进行编写,编写完成后,只需将它保存为 WSH 所支持的文件名就可以了(如.js 文件和.vbs 文件)。最常用的就是记事本编辑器,下面的实例都是以它作为工具编写的。

  打开记事本编辑器,在上面编写如下内容:

  Wscrīpt.Echo(“走近 WSH”)

  将它保存为以 .vbs 或 .js 为后缀名(千万不要写成了 .txt)的文件并退出记事本。双击执行这个文件。

  这一次,我们要利用 WSH 完成一次创建十个文件夹的工作。代码如下:

dim objdir
set ōbjdir=wscrīpt.createobject("scrīpting.filesystemobject")
for k=1 to 10
anewfolder="c:\chapter" & k
objdir.createfolder(anewfolder)
next

  同样,将它存为 .vbs 文件并退出。运行后,我们会发现,C 盘根目录下一次性多出了十个新文件夹。

  最后,再举一个在服务器上的运用。下面的代码将帮助你重新启动指定的 IIS 服务:

' define a constant for stopped services
  Const ADS_SERVICE_STOPPED = 1

' get an ADSI object for a computer
  Set ōbjComputer = GetObject("WinNT://MYCOMPUTER,computer")

' get an object for a service
  Set ōbjService = objComputer.GetObject("Service","MYSERVICE")

' check to see if the service is stopped
  If (objService.Status = ADS_SERVICE_STOPPED) Then

' if the service is stopped, then start it
  objService.Start

  End If

  将它以 startsvc.vbs 为名保存在 C: 盘根目录。并通过如下命令执行:Cscrīpt C:\STARTSVC.VBS。运行后,经你指定的 IIS 服务项将被重新开启。

  其实,在 Windows 的 samples 目录下,有个 WSH 文件夹,那里面有不少很具代表性的 .vbs 和. js 脚本文件。

  此外,利用 WSH 还可以自己编写脚本文件来提高网络管理方面的效率。

42/4<1234>
《2023软件测试行业现状调查报告》独家发布~

精彩评论

  • wangyutesting
    2011-12-26 23:28:49

    不错

  • 八袋长老
    2010-12-27 13:35:03

    非常感谢,收益了。

  • 小飞天猪
    2010-9-10 13:49:17

    多谢楼主的总结

  • YangMay
    2010-8-31 10:07:14

    呵呵,谢谢楼主的辛苦分享
    但感觉词不达意.标题是QTP的使用技巧,涵盖的内容有自动化测试实施计划.

关注51Testing

联系我们

快捷面板 站点地图 联系我们 广告服务 关于我们 站长统计 发展历程

法律顾问:上海兰迪律师事务所 项棋律师
版权所有 上海博为峰软件技术股份有限公司 Copyright©51testing.com 2003-2024
投诉及意见反馈:webmaster@51testing.com; 业务联系:service@51testing.com 021-64471599-8017

沪ICP备05003035号

沪公网安备 31010102002173号