Vbscript 如何使用用户'；HTA表单中的文本条目_Vbscript_Hta

Vbscript 如何使用用户'；HTA表单中的文本条目

vbscript

Vbscript 如何使用用户'；HTA表单中的文本条目,vbscript,hta,Vbscript,Hta,我的hta文件上有一个按钮，当我点击该按钮时，将触发批处理文件运行。我希望用户在文本框中输入计算机名，并在下面需要计算机名的psexec命令中使用它。如有任何建议，将不胜感激 <script language="VBScript"> Sub InstallVNC dim shell set shell=createobject("wscript.shell") shell.run "psexec -u domain01\username -p password

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


分装vnc
暗壳
set shell=createobject（“wscript.shell”）
shell.run“psexec-u domain01\username-p password\\textbox1.value-c\\doamin\SHARE\SOFTWARE\install\u program.bat”
端接头
应用程序安装程序
请以管理员身份运行
计算机名：

您需要以不同的方式处理输入字符串。大概是这样的：

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中使用

——对话框总是比较简单。我想知道这是否能让你克服这个问题。按下按钮时将调用此代码：

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)

基本DOM操作：

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

有关更多信息，您可以参考几乎所有DOM参考（例如）

仍然向我提供错误消息。表示需要对象“textbox1”，代码0我想这是懒惰的，但我在给我的答案添加一个建议：跳过

和

标记，使用一个简单的对话框。@user2651624代码适合我。您的输入字段是否实际具有ID“textbox1”？对不起。它确实起作用了。他是对的。我拿出了那本书，它成功了。谢谢。在HTAs中，您可以仅使用ID访问元素，因此如果元素实际具有ID“textbox1”，则

textbox1.value

应该可以正常工作。同意。通常很少有人同时使用HTA和

文档

对象。