Skip to content

Instantly share code, notes, and snippets.

@jajp777
Forked from juankb1024/AskPasswordMine.bat
Created July 29, 2022 10:37
Show Gist options
  • Select an option

  • Save jajp777/2c500a94a24c0c55e10ffdb7303fbbfe to your computer and use it in GitHub Desktop.

Select an option

Save jajp777/2c500a94a24c0c55e10ffdb7303fbbfe to your computer and use it in GitHub Desktop.
Found cool batch script to ask user credentials masking the password
@echo off
:: This batch file will create an HTML Application (HTA).
:: Values entered in the HTA will be saved as %TEMP%\USERIN.BAT
:: After the USERIN.BAT is CALLed from the main batch
:: (and assuming there is enough room in the environment)
:: environmental variables USERNAME and PASSWORD will be set.
:: It is your responsibility to delete the USERIN.BAT
:: after you CALL it. Because this batch file needs to
:: find itself, you must be sure to call it from your
:: main batch file with a full path and file name.
:: Written and tested under Win95. NT/2000/XP users will
:: have to do some modifications before it will work.
:: For example, %0 changes to %f0
:: Public Domain. Use freely. No guarantees! It may not work!
:: http://www.ericphelps.com
cls
echo Espere un momento...
:: See if I can find myself
If not exist %0 goto ERROR
:: Make the web page
type %0 | find " " | find /v "Not Me!" > %TEMP%\UserIn.hta
:: Run the vbs code
start /w %TEMP%\UserIn.hta
:: At this point a batch file "%TEMP%\UserIn.bat" exists and you should
:: call it! If you don't call the batch file here and instead opt to
:: call it from another batch file, be sure NOT to delete it in the
:: "Clean up" code section below!
call %TEMP%\UserIn.bat
::echo Your user name is %USERNAME%
echo Your password is %PASSWORD%
:: Clean up
del %TEMP%\UserIn.hta
del %TEMP%\UserIn.bat
goto DONE
:ERROR
cls
echo %0 is not the full path and file name
echo for the batch file. aYou MUST call this
echo batch file with a full path and file name.
goto DONE
:HTA
:: All HTA code MUST be indented four or more spaces.
:: NOTHING else in this batch file may be indented four spaces.
<html>
<head>
<title>Clave PDF</title>
<hta:application>
<script language="vbscript">
window.resizeTo 250,200
Sub SaveBatch()
Set fs = CreateObject("Scripting.FileSystemObject")
strFile = fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2), "UserIn.bat"))
Set ts = fs.OpenTextFile(strFile, 2, True)
ts.WriteLine "SET PASSWORD=" & document.Forms(0).elements("password").value
ts.Close
End Sub
</script>
</head>
<body>
<form>
<br>Introduzca una clave:
<br><input type=password name=password>
<br><input type=button language="vbscript" value="OK" onKeyPress="checkEnter()"
onclick="SaveBatch : Window.Close">
</form>
<script language=vbscript>
document.Forms(0).elements("password").focus
function checkEnter(event){
event.cancelBubble = true
event.returnValue = false
return false
}
</script>
</body>
</html>
:DONE
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment