alex52mail
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору @echo off Set net=Internet ::v1.0 Alpha 1 set PhoneBook=PhoneBook.pbk set ini=No echo. echo ------------------------------------------------------------------------------- Echo ConnectPPP KGB Systems By DarkPhoeniX echo ------------------------------------------------------------------------------- echo ------------------------------------------------------------------------------- echo. Echo ===== Установка PPPO соединения с именем и паролем записанными в \Settings.ini echo. echo ------------------------------------------------------------------------------- chcp 866 echo. Echo ===== 1. Проверка связи с Интернетом echo. ::Ping Test ping www.google.com >nul ::Echo %errorlevel% if "%errorlevel%"=="0" (echo ===== 2.1. У вас есть связь с Интернетом) else Echo ===== 2.2. У вас нет связи с Интернетом. if exist Settings.ini (set ini=Yes) IF "%ini%"=="No" (goto iniError) echo. echo ===== 3. Чтение имени и пароля из \Settings.ini set ConnectionName1=none404 for /f "skip=1 tokens=2 delims==" %%a in ('find "ConnectionName1=" Settings.ini') do set ConnectionName1=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "UserName1=" Settings.ini') do set UserName1=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "Password1=" Settings.ini') do set Password1=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "ConnectionName2=" Settings.ini') do set ConnectionName2=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "UserName2=" Settings.ini') do set UserName2=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "Password2=" Settings.ini') do set Password2=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "ConnectionName3=" Settings.ini') do set ConnectionName3=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "UserName3=" Settings.ini') do set UserName3=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "Password3=" Settings.ini') do set Password3=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "ConnectionName4=" Settings.ini') do set ConnectionName4=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "UserName4=" Settings.ini') do set UserName4=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "Password4=" Settings.ini') do set Password4=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "ConnectionName5=" Settings.ini') do set ConnectionName5=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "UserName5=" Settings.ini') do set UserName5=%%a for /f "skip=1 tokens=2 delims==" %%a in ('find "Password5=" Settings.ini') do set Password5=%%a echo. :choice echo 1 Соединение с именем и паролем: %ConnectionName1% echo 2 Соединение с именем и паролем: %ConnectionName2% echo 3 Connect to %ConnectionName3% echo 4 Connect to %ConnectionName4% echo 5 Connect to %ConnectionName5% echo 0 Выход без установления соединения echo. SET /P C=[ 4. Нажмите клавишу с цифрой номера из списка выше и нажмите Enter ] for %%? in (1) do if /I "%C%"=="%%?" goto 1 for %%? in (2) do if /I "%C%"=="%%?" goto 2 for %%? in (3) do if /I "%C%"=="%%?" goto 3 for %%? in (4) do if /I "%C%"=="%%?" goto 4 for %%? in (5) do if /I "%C%"=="%%?" goto 5 for %%? in (0) do if /I "%C%"=="%%?" goto 0 echo. echo Неправильный выбор соединения, повторите echo. goto choice :1 rasdial %net% %UserName1% %Password1% /phonebook:%PhoneBook% goto Disconect :2 rasdial %net% %UserName1% %Password1% /phonebook:%PhoneBook% goto Disconect :3 rasdial %net% %UserName1% %Password1% /phonebook:%PhoneBook% goto Disconect :4 rasdial %net% %UserName1% %Password1% /phonebook:%PhoneBook% goto Disconect :5 rasdial %net% %UserName1% %Password1% /phonebook:%PhoneBook% goto Disconect isconect echo. echo Press any key to Disconect pause >nul Echo Disconecting... Rasdial %net% /disconnect pause exit :iniError Echo ===== Файл \Settings.ini отсутствует pause Exit :0 Exit |