リンクhttp://www.robvanderwoude.com/vbstech_ui_password.phpからコピーしたVBScriptがあります
既存のVBSscriptに、「InternetExplorerバージョン」のコードを追加しました。
WS SCRIPT-Password.vbsという名前(上記のリンクの完全なスクリプトを参照)
strPw = GetPassword( "Please, type your password:" )
Sub Submit_OnClick
Const ForWriting = 2
Dim filesys, filetxt, FormContent
Set FormContent = document.getElementById("strPw")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("c:\temp.txt", ForWriting, True)
filetxt.WriteLine(FormContent.value)
filetxt.Close
End Sub
バッチスクリプト
@echo off
SET VALIDPASSWORD=1234
wscript Password.vbs
findstr %VALIDPASSWORD% c:\temp.txt
if ERRORLEVEL 1 (
echo Incorrect password.
goto :EOF
) else (
echo Password correct.
)
echo Batch continues from here
pause
:EOF
exit /b
ファイルtemp.TXTは、ユーザーが入力ボックスに入力した情報とともにc:\に送信する必要があります。バッチはこの入力を読み取り、設定されたパスワードと比較してコーディングを続行します...
どうすればこれを機能させることができますか?temp.TXTなどは生成されません...
BATCHとVBSの達人、これらの問題を解決するための助けは本当に歓迎されています!