Skip to content

Instantly share code, notes, and snippets.

@jajp777

jajp777/AskPasswordMine.bat

Forked from juankb1024/AskPasswordMine.bat
Created July 29, 2022 10:37
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save jajp777/2c500a94a24c0c55e10ffdb7303fbbfe to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save jajp777/2c500a94a24c0c55e10ffdb7303fbbfe to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. @juankb1024 juankb1024 renamed this gist Jul 26, 2016. 1 changed file with 12 additions and 10 deletions.
    22 changes: 12 additions & 10 deletions AskPassword.bat → AskPasswordMine.bat
    View file
    Original file line number Diff line number Diff line change
    @@ -15,7 +15,7 @@
    :: http://www.ericphelps.com

    cls
    echo Please enter your user name and password in the entry box...
    echo Espere un momento...
    :: See if I can find myself
    If not exist %0 goto ERROR
    :: Make the web page
    @@ -27,7 +27,7 @@ start /w %TEMP%\UserIn.hta
    :: 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 user name is %USERNAME%
    echo Your password is %PASSWORD%
    :: Clean up
    del %TEMP%\UserIn.hta
    @@ -37,7 +37,7 @@ goto DONE
    :ERROR
    cls
    echo %0 is not the full path and file name
    echo for the batch file. You MUST call this
    echo for the batch file. aYou MUST call this
    echo batch file with a full path and file name.
    goto DONE

    @@ -46,31 +46,33 @@ goto DONE
    :: NOTHING else in this batch file may be indented four spaces.
    <html>
    <head>
    <title>Password Entry</title>
    <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 USERNAME=" & document.Forms(0).elements("username").value
    ts.WriteLine "SET PASSWORD=" & document.Forms(0).elements("password").value
    ts.Close
    End Sub
    </script>
    </head>
    <body>
    <form>
    User Name:
    <br><input type=text name=username tabindex=1>
    <br>Password:
    <br>Introduzca una clave:
    <br><input type=password name=password>
    <br><input type=button language="vbscript" value="OK"
    <br><input type=button language="vbscript" value="OK" onKeyPress="checkEnter()"
    onclick="SaveBatch : Window.Close">
    </form>
    <script language=vbscript>
    document.Forms(0).elements("username").focus
    document.Forms(0).elements("password").focus
    function checkEnter(event){
    event.cancelBubble = true
    event.returnValue = false
    return false
    }
    </script>
    </body>
    </html>
  2. @juankb1024 juankb1024 created this gist Jul 26, 2016.
    78 changes: 78 additions & 0 deletions AskPassword.bat
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,78 @@
    @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 Please enter your user name and password in the entry box...
    :: 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. You 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>Password Entry</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 USERNAME=" & document.Forms(0).elements("username").value
    ts.WriteLine "SET PASSWORD=" & document.Forms(0).elements("password").value
    ts.Close
    End Sub
    </script>
    </head>
    <body>
    <form>
    User Name:
    <br><input type=text name=username tabindex=1>
    <br>Password:
    <br><input type=password name=password>
    <br><input type=button language="vbscript" value="OK"
    onclick="SaveBatch : Window.Close">
    </form>
    <script language=vbscript>
    document.Forms(0).elements("username").focus
    </script>
    </body>
    </html>

    :DONE