Question

我的hta文件上有一个按钮，当我点击时会触发批处理文件运行。我希望用户将计算机名称输入到文本框中，并在下面的psexec命令中使用它，该命令需要计算机名称。任何建议都会非常感激。

<script language="VBScript">
Sub InstallVNC
    dim shell
    set shell=createobject("wscript.shell")
    shell.run "psexec -u domain01\username -p password \\textbox1.value -c \\doamin\SHARE\SOFTWARE\install_program.bat"
End Sub


<body bgcolor="buttonface">
<p><font face="verdana" color="red">Application Installer</font></p>
Please run as administrator. <p>
<form name="test">
<font>Computer Name:</font>
<input type="text" name="textbox1" id="textbox1">
</form>
<input id=runbutton  class="button" type="button" value="Install VNC" name="db_button"  onClick="installvnc"><p>

</body>
</html>

Answer 1

您需要以不同方式处理输入字符串。像这样：

Sub InstallVNC
  dim shell
  dim strInput
  dim shell_parameter
  strInput = textbox1.value
  shell_parameter = "psexec -u domain01\username -p password \\" & strInput  & " -c   \\doamin\SHARE\SOFTWARE\install_program.bat"
  set shell=createobject("wscript.shell")
  shell.run shell_parameter
End Sub

关于获取用户输入：我没有在hta中使用<form> - 对话框一直比较简单。我想知道这是否会让你解决问题。按下按钮时将调用此代码：

Dim strDialogPrompt, strDialogTitle, strDialogDefault

strDialogTitle = "File location"

strDialogPrompt = "Enter location of file to install." _
    & vbCrLf & "(You must run this as Administrator.)"

strDialogDefault = "Z:\The_Usual_Path"

strInput = InputBox(strDialogPrompt, strDialogTitle, strDialogDefault, 150, 150)

Answer 2

基本DOM操作：

Dim computerName
computerName = document.getElementById("textbox1").value

有关详细信息，您可以查阅几乎任何DOM参考（例如https://developer.mozilla.org/en-US/docs/DOM）

如何在HTA表单中使用用户的文本条目

2 个答案: