1

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

2 に答える 2

2

入力文字列を別の方法で処理する必要があります。このようなもの：

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

ユーザー入力の取得について: 私は<form>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)
于 2013-08-05T03:17:48.840 に答える
0

基本的な DOM 操作:

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

詳細については、ほぼすべての DOM リファレンス (例: https://developer.mozilla.org/en-US/docs/DOM )を参照してください。

于 2013-08-05T06:32:58.247 に答える