2012-11-23 45 views
1

我創建了VBScript函數,允許用戶通過單擊按鈕來安裝網絡打印機。這很好,但點擊按鈕後沒有反饋。我試圖在單擊按鈕後添加警報,但是我遇到了語法問題。在VBScript中調用單個onClick的多個函數

下面是安裝一臺打印機的功能的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> 

回答

0

後只需添加這條線。

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

簡單的解決方案:加冒號你的宣言充當語句分隔符。這將允許您調用附加功能。

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

0

如果你想給,同時添加的打印機,你可以改變按鈕狀態的一些指示有事情發生在用戶的WshNetwork.AddWindowsPrinterConnection

MsgBox "Printer Added" 
+0

這正是我一直在尋找 – Jason

相關問題