很多人都觉得微软的VBScript功能比较弱，如果从开发自动化测试的角度来讲，更是不可能了。从我对VBScript脚本的了解来看，对一个脚本是否可以做自动化测试需要这个测试人员具备两方面的知识，第一个，就是对VBScript脚本开发语言精通，要了解VBScript的核心技术如何更广泛的应用；第二个，就是要有自动化的测试思想，这个一定得是做过测试工作的能够了解的多一些。
我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对VBScript脚本也算是了解，在测试过程中也应用了一些，所以来谈谈如何使用VBScript来开发自动化测试。
首先先介绍几个可以在自动化测试开发中用到的VBScript的几个函数。
1、InStr 函数
描述
返回某字符串在另一字符串中第一次出现的位置。
语法
InStr([start, ]string1, string2[, compare])
InStr 函数的语法有以下参数：
参数 | 描述 |
start | 可选。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果start包含Null，则会出现错误。如果已指定compare，则必须要有start参数。 |
string1 | 必选。接受搜索的字符串表达式。 |
string2 | 必选。要搜索的字符串表达式。 |
compare | 可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。 |
示例：
这个函数说明的是一个字符串在另一个字符串中出现的位置，在自动化测试中，经常用作比较结果来使用。
比如：
Dima,b
a="rtyi"
b="1345krkrtyi:{""><?"
If InStr(b,a)>0Then
MsgBox"测试结果通过"
Else
MsgBox "测试结果失败"
End If
2、Split 函数
描述
返回基于0的一维数组，其中包含指定数目的子字符串。
语法
Split(expression[, delimiter[, count[, start]]])
Split 函数的语法有以下参数：
描述
返回基于0的一维数组，其中包含指定数目的子字符串。
语法
Split(expression[, delimiter[, count[, start]]])
Split 函数的语法有以下参数：
参数 | 描述 |
expression | 必选。字符串表达式，包含子字符串和分隔符。如果expression为零长度字符串，Split返回空数组，即不包含元素和数据的数组。 |
delimiter | 可选。用于标识子字符串界限的字符。如果省略，使用空格("") 作为分隔符。如果delimiter为零长度字符串，则返回包含整个expression字符串的单元素数组。 |
count | 可选。被返回的子字符串数目，-1 指示返回所有子字符串。 |
compare | 可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。 |
示例：
这个函数主要用于拆分字符串用，在自动化测试开发中主要用于拆分测试数据。
比如：
Dim a,b,i
a="rt124,y556,57777,<>:/*&%"
b=Split(a,",")
For i=0 To Ubound(b)
MsgBox b(i)
Next
这个函数主要用于拆分字符串用，在自动化测试开发中主要用于拆分测试数据。
比如：
Dim a,b,i
a="rt124,y556,57777,<>:/*&%"
b=Split(a,",")
For i=0 To Ubound(b)
MsgBox b(i)
Next
