; 6

If WinWaitActive ( 'Мастер новых подключений', 'Успешно завершено создание следующего подключения:', '5' ) == 1 Then

  Send ( '{SPACE}{ENTER}' )

EndIf

Exit

Программка записывается в файл setup_pptp.au3 и затем из нее создается исполняемый файл setup_pptp.exe. Теперь надо позаботиться о передаче этой программы конечному пользователю. Далее будем исходить из условия, что сервер VPN и почтовый сервер созданы на платформе GNU/Linux, а не MS Windows. Это очевидно, учитывая необходимость его работы на открытом для доступа из Интернета сетевом соединении. Предположим, все административные скрипты и данные записываются в /root/bin. Сперва полученная программа упаковывается в архив и копируется в ту же папку:

# zip -9 setup_pptp.exe.zip setup_pptp.exe

adding: setup_pptp.exe (deflated 4%)

# cp  setup_pptp.exe.zip ~/bin

Затем создается простенький скрипт. При настройке логина VPN он будет отсылать осчастливленному пользователю локальное электронное сообщение об этом вместе с присоединенным архивом программы автонастройки. Такой способ передачи позволяет доставить аутентификационные данные безопасным образом. Заодно и архив с программой помещается в почтовый ящик пользователя в обход антивирусных средств, фильтрующих smtp-почту. Поль-зователь должен сохранить письмо и архив на дискете или USB Flash-диске и принести его таким образом на компьютер, где нужно настроить подключение к офисному VPN. Далее останется лишь запустить разархивированную программу, которая настроит соединение, и при подключении указать логин и пароль из текста письма. После выполнения всех манипуляций дискету или USB Flash диск придется уничтожить... Шутка, конечно, но позаботиться об уничтожении информации надо обязательно!

Поскольку сервер VPN сделан на GNU/Linux, то скрипт, который настраивает пользовательский логин на сервере, можно написать на языке интерпретатора bash. Например, так:

#!/bin/sh

FCHAP=/etc/ppp/chap-secrets

UNAME=$1

UIP=$2

( [ "$UNAME" != "" ] && [ "$UIP" != "" ] ) || {

  echo "Use as : $SELF <user-name> <ip>"; exit -1 ; }

D=`cat $FCHAP | grep -e "^$UNAME[[:space:]]"`