使用vbscript脚本在表单中进行选择的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ，每个按钮的“值”都被设为相应计算机的名称： <BODY> <inputtype="radio"name="ComputerOption"value="atl-ws-01">atl-ws-01<BR> <inputtype="radio"name="ComputerOption"value="atl-ws-02">atl-ws-02<BR> <inputtype="radio"name="ComputerOption"value="atl-ws-03">atl-ws-03<BR> <inputtype="radio"name="ComputerOption"value="atl-ws-04">atl-ws-04<P> 这是显示“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&"\root\cimv2") SetcolItems=objWMIService.ExecQuery_ ("Select*FromWin32_OperatingSystem") ForEachobjIteminColItems MsgboxobjItem.Caption Next 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可以检索计算机上所安装的操作系统的名称，然后将其显示在消息框中。这很好，但是比方说您想显示计算机上所安装的所有服务的列表，又该怎么办呢？这时，您会发 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于使用vbscript脚本在表单中进行选择的代码的所有评论
