Question

我创建了一个VBScript函数，允许用户通过单击按钮来安装网络打印机。这很好用，但点击按钮后没有反馈。我试图在单击按钮后添加警报，但我的语法有问题。

以下是用于安装打印机的onClick功能：

<script type="text/vbscript">
   function AddP(pName)
       Set WshNetwork = CreateObject("Wscript.Network")
       WshNetwork.AddWindowsPrinterConnection pName
   end function
</script>

<td><a href="#" language="vbscript" onclick="AddP('\\PrinterName')"><input name="Button1" type="button" value="Add"></a></td>

Answer 1

最简单的解决方案：在您的声明中添加冒号，该冒号充当语句分隔符。这将允许您调用其他功能。

<a href="#" language="vbscript" onclick="AddP('\\PrinterName': msgbox 'Printer added')">

Answer 2

只需在WshNetwork.AddWindowsPrinterConnection行

后添加此行即可

MsgBox "Printer Added"

Answer 3

如果您想在添加打印机时向用户提供一些指示，可以更改按钮状态。

<script type="text/vbscript">
   function AddP(pName)
       Dim allButton1s
       Set allButton1s = document.getElementsByName("Button1")
       allButton1s(0).value = "Please wait..."
       Set WshNetwork = CreateObject("Wscript.Network")
       WshNetwork.AddWindowsPrinterConnection pName
       MsgBox "Printer Added"
       allButton1s(0).value = "Add"
   end function
</script>

在VBScript中从单个onClick调用多个函数

3 个答案: