2024年6月8日发(作者：)
维普资讯
脚本开发
熟悉Ｖ Ｂ Ｓ ｃｒｉ ｐｔ之六部曲
内置函数及用户自定义函数
作者／Ｓ博士译者／朱其胜
上一期介绍了一些基本的ＶＢＳｃｒｉｐｔ语句，使用这些语句，我们已
经可以进行一些管理工作。在这一期中，我们要利用前面所介绍的概
念，写一个简单的应用。此外，我们还要介绍几个最基本的ＶＢＳｃｒｉｐｔ
函数，以及自定义函数的方法。
Ｗ ｉ ｎ ｄ ０ Ｗ Ｓ管理架构一一Ｗ Ｍ ｌ
是Ｗｉｎｄｏｗｓ Ｍａｎａｇｅｍｅｎｔ Ｉｎｓｔｒｕｍｅｎｔａｔｉｏｎ的缩写
ＷＭＩ是Ｗｉｎｄｏｗｓ ２０００中内置的服务，通过ＷＭＩ，
专业开发人员可以使用各种开发上具，将企业网络管理
（微软Ｗｉｎｄｏｗｓ２０００中文帮助中将“Ｗｉｎｄｏｗｓ Ｍａｎａｇｅｍｅｎｔ
Ｉｎｓｔｒｕｍｅｎｔａｔｉｏｎ”译为“Ｗｉｎｄｏｗｓ管理规范”，国内也
功能轻松整合入所开发的应用程序中，而不需要大费周
折地去研究整个Ｗｉｎｄｏｗｓ￣务的底层架构。提供服务的
软件设计人员，也可以通过ｗＭＩ将服务内容封装起
来，让用户更容易对被管理对象进行管理作业。至于一
有刊物译为“Ｗｉｎｄｏｗｓ管理设备”，但相比而言，我
觉得译为“Ｗｉｎｄｏｗｓ管理架构”更贴切一些，更能体
现出这一技术的特点。一一译者注），是一项相当有成
力的技术。简单来说，ＷＭＩ就是Ｗｉｎｄｏｗｓ平台的管理
架构，它通过统一的标准的方式，让开发人员和管理人
员能够很轻松地访问Ｗｉｎｄｏｗｓ的管理服务，进行企业内
部管理。
般没有程序开发经验的管理人员，要如何利用这一管理
接口呢？当然就是通过ＶＢＳｃｒｉｐｔ，操作ＷＭＩ对象进行
网络管理哕！
由于ＷＭＩ是一种管理服务架构，是Ｗｉｎｄｏｗｓ组件对
象模型的一个实际应用，因此我们可以利用ＶＢＳｃｆｉｐｔ的
ＶＢＳｃｒｉ ｐｔ
●ｌｓ
维普资讯
脚本开发
一
圈２：利用ＭｓｇＢＯＸ函数显示信息
圈１：取得当前计算机中所执行的服务名称
脚本一开始我们使用了Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ关键字，强
迫ＶＢＳＣ ｒｉＰｔ对程序中使用的变量进行检查，因为
ＧｅｔＯｂｊｅｃｔ函数连接ｗＭＩ服务，然后使用特定的服务名称
访问各种不同的服务。例如，Ｗｉｎ３２一Ｓｅｒｖｉｃｅ代表当前
Ｗｉｎｄｏｗｓ环境中的各项服务，Ｗｉｎ３２Ｐｒｉｎｔｅｒ代表当前计
ＶＢＳｃｒｉｐｔ允许用户可以不声明就使用变量。使用Ｏｐｔｉｏｎ
Ｅｘｐｌｉｃｉｔ关键字后，如果用户使用的变量没有事先声明，
程序就会报错而中止执行，这样做的目的是为了避免我
算机所连接的所有打印机。那我们如何取得这些服务的
们不小心拼错了变量的名称。接着我们声明了变量，然
后通过ＧｅｔＯｂｊｅｃｔ函数连接到ＷＭＩ服务，服务起点的名
称为“ＷｉｎＭｇｍｔｓ：”。
接下来，我们利用ＩｎｓｔａｎｃｅｓＯｆ方法，取得Ｗｉｎｄｏｗｓ
的服务集合，这个集合中包含了所有执行中的服务对
进入点呢？通过ＷＭＩ对象的ＩｎｓｔａｎｃｅｓＯｆ方法，就可以取
得对应服务的进入点。让我们来看下面这一段程序：
’ＷＭＩＴｅｓｔ．ＶＢＳ
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｉｍ ｗｍｉＯｂｊｅｃｔ，ｗｍｉＳｅｒｖｉｃｅｓ
象。由于返回的结果是一个集合，所以我们要使用上一
期提到的Ｆｏｒ…Ｅａｃｈ语句来从集合中依序取得各个服务对
Ｓｅｔ ｗｍｉＯｂｊｅｃｔ＝ＧｅｔＯｂｊｅｃｔ（”ＷｉｎＭｇｍｔｓ：”、
象，将该对象的说明加入到字符串变量中，并使用
显示所有的服务
Ｓｅｔ ＷｍｉＳｅｒｖｉＣｅｓ＝ｗｍｉＯｂｊｅｃｔ．Ｉｎ ｓｔａｎｃｅｓ０ｆ
（”Ｗｉｎ３２一Ｓｅｒｖｉｃｅ”）
ｉｎｔＣｏｕｎｔ变量记录服务的个数，最后我们把服务的名称
及个数显示出来。为了使显示出来的信息具有换行的效
果，我们在程序中使用了ＶＢＳｃｒｉｐｔ内置常数“ｖｂＣｒＬｆ”
来代表换行的字符符号。执行的结果如图１。
由于本文的重点不是ＷＭＩ，所以这里对ＷＭＩ技术
不做细节讨论。但我们可以从这个例子中看出，只要某
Ｄｉｍ ｓｔｒＳｅｒｖｉｃｅｓ，ｏｂｊＳｅｒｖｉｃｅ，ｉｎｔＣｏｕｎｔ
Ｆｏｒ Ｅａｃｈ ｏｂｊＳｅｒｖｉｃｅ Ｉｎ ｗｍｉＳｅｒｖｉｃｅｓ
ｓｔｒＳｅｒｖｉｃｅｓ＝ｓｔｒＳｅｒｖｉｃｅｓ＆
ｏｂｊＳｅｒｖｉｃｅ．Ｄｅｓｃｒｉｐｔｉｏｎ＆”：”
ｉｎｔＣｏｕｎｔ＝ｉｎｔＣｏｕｎｔ＋１
Ｎｅｘｔ
个服务能通过对象的方式取得并操控，我们就可以很简
单地建立一段ＶＢＳｃｒｉｐｔ，进行一些重复性高或是操作较
复杂的工作，而所用的技巧都不会超出我们之前所介绍
的知识范围。
一
ｓｔｒＳｅｒｖｉｃｅｓ＝ｓｔｒＳｅｒｖｉｃｅｓ＆ｖｂＣｒＬｆ＆ｖｂＣｒＬｆ＆
”总共”＆ｉｎｔＣｏｕｎｔ＆”个服务执行中ｌ
ＷＳｃｒｉｐｔ．Ｅｃｈｏ ｓｔｒＳｅｒｖｉｃｅｓ
● ●Ｉ●
维普资讯
— ０ ．一： ００ ｌｌ０■
赫 盎躐
ＭｓｇＢｏｘ按钮常奴 说啊
ｖｂＹｅｓＮｏＣａｎｃｅＩ
ｖｂＹｅｓＮｏ
ｖｂＲｅｔｒｙＣａｎｃｅｌ
显示是、否及取消按钮，用户可以按下取消按钮或是ＥＳＣ按键取消对话框。
显示是、否按钮，用户无法取消对话框。
显示重试及取消按钮，用户可以按下取消按钮或是Ｅｓｃ按键取消对话框。
ＭＳｇＢＯＸ函数
在上面的例子中，我们是利用Ｗｉｎｄｏｗｓ Ｓｃｒｉｐｔｉｎｇ
Ｈｏｓｔ的内建对象ｗＳＣｒｉｐｔ来显示执行的结果。由于
ＶＢＳｃｒｉｐｔ本身就是在ＷＳＨ的环境中执行，所以并不需要
１中提供的是您可以使用的按钮常数及对应的说明。
当您的函数中指定了一个以上的按钮时，您可能会
希望安排好适当的默认按钮。以“确定”及“取消”
两个按钮为例，大多数的时候，我们可能会期望用户都
是按下“确定”，但是如果您要做的动作涉及到数据的
变动或是销毁，可能就要让用户好好考虑了，因为一旦
做了很可能是无法后悔的，所以将预设的按钮安排成
“取消”是较保险的做法。那么要如何指定默认的按钮
呢？表２列出了默认按钮的指定常数。
在ｍｓｇｂｏｘ对话框中指定了两个以上的按钮后，当然
希望知道用户最终按下了哪一个按钮。ＭｓｇＢｏｘ会返回
通过ＧｅｔＯｂｊｅｃｔ或ＣｒｅａｔｅＯｂｊｅｃｔ函数事先取得Ｗｓｃｒｉｐｔ对
象，该对象提供了Ｅｃｈｏ方法，让我们向用户显示信息。
但ＥＣＨＯ方法的功能是相当有限的，用户唯一能做的响
应就是按下“确定”键。事实上，在ＶＢＳＣｒｉｐｔ中提
供有一个对应的函数，即ＭｓｇＢｏｘ，我们可以利用它来
进行更有弹性的信息显示安排。我们把上面例子中的最
后一个语句改成下面的形式：
ＭｓｇＢｏｘ ｓｔｒＳｅｒｖｉｃｅｓ，ｖｂＯＫＯｎｌｙ Ｏｒ ｖｂｌｎｆｏｒｍａｔｉｏｎ，’’
用户按下的按钮值，您可以根据这个返回值判断用户的
决定。表３是这些返回值常数的说明。假设我们要在用
户响应“否”的时候中止程序的执行，我们可能会用
如下的叙述：
Ｉｆ ＭｓｇＢｏｘ（ｓｔｒＭｅｓｓａｇｅ，ｖｂＹｅｓＮｏ）＝ｖｂＮｏ Ｔｈｅｎ
执行中的服务”
执行后的画面如图２。我们会看到画面中多了一个图
标，而且对话框的标题也是我们所指定的标题。使用
ＭｓｇＢｏｘ函数，除了可以显示信息之外，还可以指定图标、
用户能操作的按钮以及对话框标题。它的语法如 ：
ＭｓｇＢｏｘ（ｐｒｏｍｐｔ，ｂｕｔｔｏｎｓ，ｔｉｔｌｅ，ｈｅｌｐｆｉｌｅ，ｃｏｎｔｅｘｔ）
ＷＳｃｒｉｐｔ．Ｑｕｉｔ
ＥｎｄＩｆ
Ｐｒｏｍｐｔ就是我们要显示的提示，而Ｂｕｔｔｏｎｓ则是我
们要提供的按钮。ＢｕｔｔｏｎＳ这个参数很有意思，通过
它，您可以同时指定对话框的图标、按钮以及默认的按
钮。这三个不同的信息可以使用Ｏｒ运算符结合在一起。
至于对话框的图标，主要有四类，分别是：一般
信息、一般警告、严重警告或提示及询问。一般信息
像上面例子中的ｖｂＯＫＯｎｌｙ代表的是只显示“确定”按
钮，而后面的ｖｂｌｎｆｏｒｍａｔｉｏｎ则是指定图标的名称，也
就是画面中有ｉ的图案，代表是一个一般的信息。在表
ＭｓｇＢｏｘ返回值
ｖｂＯＫ
说啊
按下“确定”，或者是在只有确定
按钮的情况下按下“Ｅｓｃ 取消对话
框。
ｖｂＣａｎｃｅｌ
ＭｓｇＢｏｘ覆设默认常奴
ｖｂＤｅｆａｕｌｔＢｕｔｔｏｎ １
按下“取消 或是在有取消按钮的
对话框按下“Ｅ Ｓ Ｃ”取消对话框。
说啊
＇
第一个按钮是默认按钮
第二个按钮是默认按钮
第三个按钮是默认按钮
ｖｂＹｅｓ
ｖｂＮｏ
按下
按下
“是”。
“否”。
ｖｂＤｅｆａｕＩｔＢｕｔｔｏｎ２
ｖｂＤｅｆａｕＩｔＢｕｔｔｏｎ３
ｖｂＤｅｆａｕＩｔＢｕｔｔｏｎ４ 第四个按钮是默认按钮
赣
维普资讯
。 －。 ’ 誊 ｌｌ鬈譬 ≯ｉ
图３：提供帮助说明的信息对话框 图４：ＩｎＰｕｔＢｏｘ函数执行的结果
主要是提供一般性的信息，目的在于告知用户所需要的
信息。至于一般警告则是在提醒用户注意，显示的是惊
叹号的图标。如果面对的是很重要的情况，甚至是严重
的错误，则会利用禁止的图标来警示。若处置的措施要
／ｍｓｄｎ．ｍｉｃｒｏｓｏｆｔ．ｃｏｒｎ／ｌｉｂｒａｒｙ／ｄｅｆａｕｌｔ．ａｓｐ？ＵＲＬ＝／ｌｉｂｒａｒｙ／
ｔｏｏｌｓ／ｈｔｍｌｈｅｌｐ／ｃｈｍ／ｈｈ １ ｓｔａｒｔ．ｈｔｍ）。
ｌＩ＇１ＰＵｔＢ０Ｘ函数
ＭｓｇＢｏｘ是用来向用户显示信息的，而ＩｎｐｕｔＢｏｘ则
是用来取得用户的输入信息。这个函数的语法如下：
ＩｎｐｕｔＢｏｘ（ｐｒｏｍｐｔ，ｔｉｔｌｅ，ｄｅｆａｕｌｔ，ｘｐｏｓ，ｙｐｏｓ，ｈｅｉｐｆｉｌｅ，
ｃｏｎｔｅｘｔ）
根据用户的响应来决定，我们就会显示问号。表４列出
了图标对应的常数。
在ＭｓｇＢｏｘ函数中，除了Ｐｒｏｍｐｔ参数以外，其他
的参数都是可选的。如果不指定Ｂｕｔｔｏｎｓ参数，就只会
显示一个“确定”按钮，不会有图标。如果不指定Ｔｉｔｌｅ
参数，就会以“ＶＢＳｃｒｉｐｔ”作为对话框的标题。至于
Ｈｅｌｐｆｉｌｅ及Ｃｏｎｔｅｘｔ两个参数则需要配合帮助文档来使
用。如果希望通过帮助文件提供与对话框有关的信息给
用户，您就可以利用Ｈｅｌｐｆｉｌｅ指定帮助文件的位置，并
通过Ｃｏｎｔｅｘｔ来指定要显示那一段说明文字。
在使用Ｈｅｌｐｆｉｌｅ和Ｃｏｎｔｅｘｔ这两个参数时，一旦指定
了Ｈｅｌｐｆｉｌｅ，就一定要指定Ｃｏｎｔｅｘｔ。反之亦然。当您
指定了Ｈｅｌｐｆｉｌｅ参数的值时，信息对话框中会自动加上
一
同样的，ＩｎｐｕｔＢｏｘ函数中除了Ｐｒｏｍｐｔ参数是必需
的外，其他都是可选的。Ｐｒｏｍｐｔ是给用户看的提示信
息，处理方式和ＭｓｇＢｏｘ一样。Ｔｉｔｌｅ、Ｈｅｌｐｆｉｌｅ及Ｃｏｎｔｅｘｔ
等参数的作用也和ＭｓｇＢｏｘ中一样。至于Ｄｅｆａｕｌｔ则是输
入对话框上文字框中的默认值，用户可以直接用您所提
供的默认值作为输入值。例如下面的语句会出现如图４
的对话框：
ｓｔｒ＝ＩｎｐｕｔＢｏｘ（”请输入用户账户名称”，”取
得账户信息”，”ｕｓｅｒｎａｍｅ”）
我们可以利用ｘｐｏｓ及ｙｐｏｓ两个参数来指定对话框显
示的位置。在默认的情况下，输入对话框的水平位置会
在画面的中央，而垂直的位置则大约在画面的三分之一
个“帮助”的按钮。例如我们执行了以Ｆ的语句：
’ＭｓｇＢｏｘＴｅｓｔ．ＶＢＳ
Ｍ ＳｇＢ０Ｘ”测试辅助说明ｌ”，ｖｂ０Ｋ０ｎｌＹ ０ｒ
ｖｂＩｎｆｏｒｍａｔｉｏｎ，”测试”，”ｃ：＼ｔｅｓｔ．ｃｈｍ”，１０１１
处，您可以使用这两个参数改变对话框出现的位置，它
们的坐标单位是ｔｗｉｐ（每一个ｔｗｉｐ相当于１／１４４０时）。
ＩｎｐｕｔＢｏｘ会返回用户输入的信息，如果用户取消了
对话框，返回的就是空字符串。由于ＩｎｐｕｔＢｏｘ返回的
就出现如图３的对话框。
注意，“帮助”按钮的目的只是协助用户获得帮助
说明，因此按Ｆ这个按钮并不会结束对话框，也不会将
值返回到程序中。如果您对撰写帮助说明有兴趣，可以
参考ＭＳＤＮ网站中ＨＴＭＬ Ｈｅｌｐ Ｗｏｒｋｓｈｏｐ的说明（ｈｔｔｐ：／
ＭｓｇＢｏｘ圈标，Ｉ｜敦
ｖｂｌｎｆｏｒｍａｔｉｏｎ
说啊
显示信息圈标
ｖｂＥｘｃｌａｍａｔｉｏｎ
ｖｂＣｒｉｔｉｃａｌ
ｖｂＱｕｅｓｔｉｏｎ
显示惊叹圈标
显示重要信息圈标
显示问号圈标
ＶＢＳｃｒｉ ｐｔ
维普资讯
值都被视为字符串，所以您要自行利用类型转换函数把
返回的结果转换成适当的数据类型。
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｉｍ ｉｎｔＳｅｒｖｉｃｅＮｕｍｂｅｒ
函数的调用
前面我们提到过，函数和语句最大的不同在于函数
会返回结果，语句不会。由于函数会返回结果，所以
多半用在表达式中。调用的时候我们会像之前所示范的
ｉｎｔＳｅｒｖｉｃｅＮｕｍｂｅｒ＝ＣＩｎｔ（ＩｎｐｕｔＢｏｘ（”您要列出几项
服务？”，”系统服务”，１０））
ＷＳｃｒｉｐｔ．Ｅｃｈｏ ＳｅｒｖｉｃｅＬｉｓｔ（ｉｎｔＳｅｒｖｉｃｅＮｕｍｂｅｒ）
那样，用括号将参数括起来。若该函数不需要参数，我
们也要用空括号来声明它是一个函数。
有些时候，我们可能并不需要返回的值。例如像前
面的例子，我们利用ＭｓｇＢｏｘ来显示信息，但不需要取
Ｆｕｎｃｔｉｏｎ ＳｅｒｖｉｃｅＬｉｓｔ（ＳｅｒｖｉｃｅＮｕｍｂｅｒ）
Ｄｉｍ ｗｍｉＯｂｊｅｃｔ，ｗｍｉＳｅｒｖｉｃｅｓ
Ｄｉｍ ｓｔｒＳｅｒｖｉｃｅｓ，ｏｂｊＳｅｒｖｉｃｅ，ｉｎｔＣｏｕｎｔ
Ｓｅｔ ｗｍｉＯｂｊｅｃｔ＝ＧｅｔＯｂｊｅｃｔ（”ＷｉｎＭｇｍｔｓ：”、
得用户的响应，因此就不需要用括号把参数括起来。用
Ｃａｌｌ语句调用函数也是一种方法。例如：
Ｃａｌｌ ＭｓｇＢｏｘ（”嗨ｌ”）
’显示所有的服务
Ｓｅｔ ｗｍｉＳｅｒｖｉｃｅｓ：
注意，用Ｃａｌｌ语句调用函数时，仍然要使用括号，
但是函数并不需要出现在表达式中。
ｗｍｉＯｂｊｅｃｔ．ＩｎｓｔａｎｃｅｓＯｆ（”Ｗｉｎ３２一Ｓｅｒｖｉｃｅ”）
Ｆｏｒ Ｅａｃｈ ｏｂｊＳｅｒｖｉｃｅ Ｉｎ ｗｍｉＳｅｒｖｉｃｅｓ
ｓｔｒＳｅｒｖｉｃｅｓ：ｓｔｒＳｅｒｖｉｃｅｓ＆ｏｂｊＳｅｒｖｉｃｅ．Ｄｅｓｃｒｉｐ・
自定义函数
前面提到的ＭｓｇＢｏｘ／３￣ＩｎｐｕｔＢｏｘ都是ＶＢＳｃｒｉｐｔ的内
置函数。除了可以使用这些ＶＢＳｃｒｉｐｔ内置函数外，您
还可以设计自己的函数，供程序使用。自定义函数的语
法如下：
Ｆｕｎｃｔｉｏｎ ＦｕｎｃｔｉｏｎＮａｍｅ（ｐａｒａｍｅｔｅｒｓ）
ｓｔａｔｅｍｅｎｔｓ
ｔｉｏｎ＆”：”
ｉｎｔＣｏｕｎｔ：ｉｎｔＣｏｕｎｔ＋１
Ｉｆ ｉｎｔＣｏｕｎｔ＞：ＳｅｒｖｉｃｅＮｕｍｂｅｒ Ｔｈｅｎ
ＥｘｉｔＦｏｒ
ＥｎｄＩｆ
Ｎｅｘｔ
ＦｕｎｃｔｉｏｎＮａｍｅ：ｒｅｔｕｒｎｖａｈｌｅ
Ｅｎｄ Ｆｕｎｃｔｉｏｎ
ＳｅｒｖｉｃｅＬｉｓｔ：ｓｔｒＳｅｒｖｉｃｅｓ＆ｖｂＣｒＬｆ＆ｖｂＣｒＬｆ＆
”总共”＆ｉｎｔＣｏｕｎｔ＆”个服务执行中ｌ”
Ｅｎｄ Ｆｕｎｃｔｉｏｎ
ＦｕｎｃｔｉｏｎＮａｍｅ是您的函数名称。由于函数是要返回
值的，所以您最后执行的结果，要赋值于函数名称，也
就是函数要返回给调用程序的值。注意在指定函数名称
时，不能使用到任何ＶＢＳｃｒｉｐｔ的关键词。ｐａｒａｍｅｔｅｒｓ指
函数的参数，各个参数之间用逗号隔开。Ｓｔａｔｅｍｅｎｔｓ是
使用自定义函数的最大好处就是可以进行代码重
用，上面的程序在执行时，只会执行程序开头到函数定
义之前的程序代码，每一个个别的函数则只有在被调用
时才执行。
今天我们就讨论到这里，下一期，我们会更进一步
实现函数功能的具体代码。
以前面操作ＷＭＩ的程序为例，我们可以把取得系
统服务的工作封装成一个函数，然后再调用这个函数来
研究有关字符串处理的函数，看看如何利用这些函数来
提供更容易阅读的信息。
取得服务清单，并显示相应的信息。为了提高使用的弹
性，我们可以让用户决定要取得几个服务的名称。请注
意，我们在利用ＩｎｐｕｔＢｏｘ函数取得用户输入的服务个数
时，一定要利用类型转换函数（这里是使用Ｃｌｎｔ）将
数据转换成正确的类型，否则无法进行正确的判断。修
改后的程序如下：
’ＷＭＩＴｅｓｔ．ＶＢＳ
关于译者
朱其胜，亚洲ＭＶＰ。本刊特约撰稿人，本刊论
￣／：Ｗｉｎｄｏｗｓ Ｓｅｒｖｅｒ和Ｗｉｎｄｏｗｓ脚本版块的版主．网
名：沧海笑一声。
发布评论