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

我创建了一个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>

函数AddP（pName）
设置WshNetwork=CreateObject（“Wscript.Network”）
WshNetwork.AddWindowsPrinterConnection pName
端函数

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

---

只需在您的

WshNetwork.AddWindowsPrinterConnection

行之后添加这一行即可

MsgBox "Printer Added"

---

如果要在添加打印机时给用户一些指示，可以更改按钮状态

<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>

函数AddP（pName）
调暗所有按钮1
设置allButton1s=document.getElementsByName（“Button1”）
allButton1s（0）。value=“请稍候…”
设置WshNetwork=CreateObject（“Wscript.Network”）
WshNetwork.AddWindowsPrinterConnection pName
MsgBox“已添加打印机”
allButton1s（0）。value=“添加”
端函数

这正是我想要的