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
|
