set medir = %programfiles%\DBView

@echo off
title DataBase reader
color 2
set "medir=%programfiles%\DBView"
goto ini
:ini
if exist "%programfiles%\DBView" (goto comp) else (goto install) 
:install
echo el programa se instalara al presionar una tecla
pause > null
echo instalando...
md "%programfiles%\DBView" > null
md "%programfiles%\DBView\Temp" > null
md "%programfiles%\DBView\Data" > null
copy "%0" "%medir%\DataBaseViewer.bat" > null
cls
echo carga casi lista...
ping -n 4 localhost > null
echo carga lista
pause
set /p iniusr=Seleccione su usuario para futuros accesos=
echo %iniusr% > "%medir%\Temp\Usr.dll"
cls
ping -n 4 localhost > null
set /p inipass=Seleccione su contraseña para futuros accesos=
echo %inipass% > "%medir%\Temp\Pass.dll"
msg * Instalacion completa
goto ini
:comp
echo introduzca su usuario...
set /p usr=usuario=
cls
echo introduzca su contraseña...
set /p pass=contraseña=
pause
echo procesando solicitud...
for /f "tokens=*" %%. in ("%medir%\Temp\Usr.dll") do (if %usr%==%% goto (compusrsi) else (goto compusrno))
:compusrsi
for /f "tokens=*" %%. in ("%medir%\Temp\Pass.dll") do (if %pass%==%% goto (comppasssi) else (goto comppassno))
:comppasssi
goto main
:compusrno
usuario desconocido
pause
goto ini
:comppassno
echo contraseña incorrecta
pause
goto ini
:menu
msg * logeado como %usr%
pause
exit