.hta中的VBS脚本提示下载.hta文件

时间:2014-05-08 16:19:29

标签: vbscript hta

我在.hta应用程序中运行了一些vbscript,提示用户键入用户名和密码,然后将这些详细信息添加到Windows凭据管理器。

现在代码工作正常,但是它运行它总是提示我下载.hta文件,之后我不想这样做。

我在hta中运行vbs的原因是这是我可以获得屏蔽密码提示的唯一方法。

这是我正在运行的代码。

    <html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>Windows Credentials</title>

<script type="text/vbscript">
    Function LoginForm_OnSubmit
        strUser = LoginForm.UserName.Value
        strPass = LoginForm.Password.Value


strServer1 = "*.server.com"
strServer2 = "*.server2.com"
strCommand = "cmd /c cmdkey /add:" & strServer1 & " /user:" & "domain\" & strUser & " /pass:" & strPass
strCommand = "cmd /c cmdkey /add:" & strServer2 & " /user:" & "domain\" & strUser & " /pass:" & strPass

Set objShell = CreateObject("WScript.Shell")
objShell.Run strCommand, 0, True

MsgBox strUser & " has been added to the credentials list."

    End Function
</script>

</head>
<body>

<form id="LoginForm">
Enter Your Emila Username: <input type="textbox" id="UserName"/><br />
Enter Your Email Password: <input type="password" id="Password"/><br />
<input type="submit" value="Login"/>
</form>


</body>
</html>

提前致谢。

克里斯

0 个答案:

没有答案