使用vbscript脚本在表单中进行选择的代码

摘要：问：嗨，ScriptingGuy！我想创建一个带有四个单选按钮的表单，其中每个按钮各代表一台计算机。可以选择一个单选按钮，单击另一个按钮，然...

问：

嗨，ScriptingGuy！我想创建一个带有四个单选按钮的表单，其中每个按钮各代表一台计算机。可以选择一个单选按钮，单击另一个按钮，然后脚本将在所选的计算机上运行。我怎样才能做到？

--CW

答：

嗨，CW。如果我们所说的只是VBScript和WindowsScriptHost，那么这个问题很简单：办不到。除了显示消息框以外，VBScript和WSH都无法创建图形用户界面；没办法通过脚本使用单选按钮、列表框、下拉列表以及其他图形元素。

但是——噢，你们以前一定见过这种情况。没错：我们先告诉您某事办不到，然后再告诉您做事的方法。（嗨，每个人多需要点技巧，不是吗？）没错：虽然您不会只用VBScript实现这一点，但是完全可以使用HTA（HTML应用程序）来实现。

我们今天不会花太多时间来谈论HTA；如果您对此感兴趣，可以查找大约一年前我们针对该主题推出的网络广播。可以说，HTA使我们能够将InternetExplorer和脚本代码结合在一起，并反过来为脚本提供图形用户界面。虽然还有一些方法可以将图形用户界面合并到脚本中，但是对于才开始涉足GUI开发的用户来说，这可能是最简单的方法。

让我们先提供HTA的代码，然后再解释其工作原理。此示例HTA显示了四个单选按钮，其中每个按钮各代表一台计算机。选择一台计算机，并单击一个“RunScript（运行脚本）”按钮；完成后，将运行一个子例程。该程序将连接到已选定的计算机，然后报告该计算机上所安装的操作系统的名称。很不错吧？如要了解其工作原理，复制该代码，将其粘贴到记事本中，然后以.hta文件扩展名（比如：os_name.hta）保存文件。不要使用.vbs文件扩展名；那样行不通。扩展名必须是.hta。

复制代码代码如下:

<SCRIPTLANGUAGE="VBScript">

SubRunScript

IfComputerOption(0).CheckedThen

strComputer=ComputerOption(0).Value

EndIf

IfComputerOption(1).CheckedThen

strComputer=ComputerOption(1).Value

EndIf

IfComputerOption(2).CheckedThen

strComputer=ComputerOption(2).Value

EndIf

IfComputerOption(3).CheckedThen

strComputer=ComputerOption(3).Value

EndIf

IfstrComputer=""Then

ExitSub

EndIf

SetobjWMIService=GetObject_

("winmgmts:"&strComputer&"rootcimv2")

SetcolItems=objWMIService.ExecQuery_

("Select*FromWin32_OperatingSystem")

ForEachobjIteminColItems

MsgboxobjItem.Caption

EndSub

SubCancelScript

Self.Close()

EndSub

</SCRIPT>

<BODY>

<inputtype="radio"name="ComputerOption"value="atl-ws-01">atl-ws-01

<inputtype="radio"name="ComputerOption"value="atl-ws-02">atl-ws-02

<inputtype="radio"name="ComputerOption"value="atl-ws-03">atl-ws-03

<inputtype="radio"name="ComputerOption"value="atl-ws-04">atl-ws-04

<inputid=runbuttonclass="button"type="button"value="RunScript"name="ok_button"

onClick="RunScript">

<inputid=runbuttonclass="button"type="button"value="Cancel"name="cancel_button"

onClick="CancelScript">

</BODY>

那么该代码包含哪些内容呢？我们可以将该代码分为四部分：其中有两个部分使用HTML标记来实现单选按钮以及“RunScript（运行脚本）”和“Cancel（取消）”按钮，而另外两个部分则根据您所点击的是“RunScript”还是“Cancel”来运行子例程。让我们更进一步了解这几个部分。

例如，HTML代码在此显示这四个单选按钮。（如果您了解HTML，那么这里就没有什么特别的；这是标准的HTML编码。）请注意，所有按钮都有相同的名称(ComputerOption)；这是为了确保一次只能选择一个按钮。还要注意，每个按钮的“值”都被设为相应计算机的名称：

<BODY>

<inputtype="radio"name="ComputerOption"value="atl-ws-01">atl-ws-01

<inputtype="radio"name="ComputerOption"value="atl-ws-02">atl-ws-02

<inputtype="radio"name="ComputerOption"value="atl-ws-03">atl-ws-03

<inputtype="radio"name="ComputerOption"value="atl-ws-04">atl-ws-04

这是显示“RunScript”和“Cancel”按钮的代码。这里的关键是“onClick”参数（在单击按钮时，指示该运行哪个子例程）。正如单击第一个按钮所能看到的，RunScript子例程将运行；单击第二个按钮，CancelScript子例程将运行：

<inputid=runbuttonclass="button"type="button"value="RunScript"name="ok_button"

onClick="RunScript">

<inputid=runbuttonclass="button"type="button"value="Cancel"name="cancel_button"

onClick="CancelScript">

</BODY>

顺便说一下，CancelScript子例程会关闭HTA。正如您看到的，整个过程一点都不复杂：

SubCancelScript

Self.Close()

EndSub

现在——最终！——我们要遇到好事了。选择一个单选按钮，然后单击“RunScript”。我们的HTA是如何知道所选择的按钮以及如何知道对哪台计算机运行脚本？那么，到底要在哪里运行脚本呢？放松点；一切都在RunScript例程中：

复制代码代码如下:

SubRunScript

IfComputerOption(0).CheckedThen

strComputer=ComputerOption(0).Value

EndIf

IfComputerOption(1).CheckedThen

strComputer=ComputerOption(1).Value

EndIf

IfComputerOption(2).CheckedThen

strComputer=ComputerOption(2).Value

EndIf

IfComputerOption(3).CheckedThen

strComputer=ComputerOption(3).Value

EndIf

IfstrComputer=""Then

ExitSub

EndIf

SetobjWMIService=GetObject_

("winmgmts:"&strComputer&"rootcimv2")

SetcolItems=objWMIService.ExecQuery_

("Select*FromWin32_OperatingSystem")

ForEachobjIteminColItems

MsgboxobjItem.Caption

EndSub

该子例程的前半部分用以确定所选的具体按钮。单选按钮（至少是具有相同名称的按钮）作为数组进行存储；数组中的第一个按钮是项目0，第二个按钮是项目1等等。我们在这里所做的就是确定选择了哪个按钮；这可以通过查看每个按钮的“Checked（选定）”属性来实现。例如，这行代码用以确定按钮0（数组中的第一个按钮）的“Checked”属性是否为true；如果是的话，就表示所选定的就是该按钮：

IfComputerOption(0).CheckedThen

如果“Checked”为true，又如何呢？那么，随后将对变量strComputer指派该单选按钮的值（同时记住，该按钮的值恰好是计算机的名称）：

strComputer=ComputerOption(0).Value

如果“Checked”为False，那又如何呢？没什么大不了；毕竟我们已经检查了每个单选按钮的值。迟早都会弄清楚选定了哪个按钮（而且只能有一个）。如果最终确定未选择任何按钮，那么就将退出该子例程。这就是该代码所完成的工作：

复制代码代码如下:

IfstrComputer=""Then

ExitSub

EndIf

如果选择了一个按钮，那么strComputer将为我们所要连接的计算机的名称。这就是该子例程的后半部分所完成的工作：连接到指定计算机并返回其上所安装的操作系统的名称的是一个标准WMI脚本。

哟！我们敢打赌，对于能完成这件事，您会感到很高兴，不是吗？或者，至少如果我们的确做到了这一点，您就会高兴。但是，还有一点需要指出。我们在此提供的示例HTA可以检索计算机上所安装的操作系统的名称，然后将其显示在消息框中。这很好，但是比方说您想显示计算机上所安装的所有服务的列表，又该怎么办呢？这时，您会发现自己将应答几十个消息框。这可不是您我所希望得到的用户体验。

那么，能否解决这个问题？当然可以。我们不想在这方面多花时间，但是需要做几件事。首先，我们在HTA中添加了一个SPAN区域；这只是屏幕上的一个可识别的区域，可以在其中写入信息。使用此类代码将SPAN（附带DataArea的ID）放置在按钮的下方：

<spanid=DataArea>

其次，需要收集该数据，并将其全都保存到一个变量中，而不在一个消息框中显示所有数据。该代码将变量strText的值设为当前在strText中的任何值加上“caption”属性的值，再加上 标记（在HTML脚本中相当于按键盘上的“ENTER”键）：

strText=strText&objItem.Caption&" "

最后，需要将SPAN的“InnerHTML”属性设为变量strText的值：

DataArea.InnerHTML=strText

都明白了吗？另外，为了避免过多的解释，这里有个修改过的HTA，可以收集计算机上所安装的所有服务的名称，然后自动将这些名称写入HTA中：

复制代码代码如下:

<SCRIPTLANGUAGE="VBScript">

SubRunScript

IfComputerOption(0).CheckedThen

strComputer=ComputerOption(0).Value