Создаешь VPN подключение на тестовом компе, лезешь сюда
\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk
В этом файле храняться все настройки VPN соединения, кроме имени и пароля.
Делаешь SFX архив с этим файлом, а ярлык на него - на рабочий стол.

WinMinimizeAll()
Sleep(1000)
If WinExists("Сетевые подключения" Then
WinClose ("Сетевые подключения"
Sleep(500)
EndIf
Run("rundll32 shell32,Control_RunDLL ncpa.cpl"
WinWait("Сетевые подключения", "Сетевые подключения"
If Not WinActive("Сетевые подключения", "Сетевые подключения" Then WinActivate("Сетевые подключения", "Сетевые подключения" EndIf
Send("{TAB}"
Send("{TAB}"
Send("{TAB}"
Send("{ENTER}"
WinWait("Мастер новых подключений", "Этот мастер поможет:"
If Not WinActive("Мастер новых подключений", "Этот мастер поможет:" Then WinActivate("Мастер новых подключений", "Этот мастер поможет:" EndIf
Send("{ENTER}"
WinWait("Мастер новых подключений", "&Подключить к Интернету"
If Not WinActive("Мастер новых подключений", "&Подключить к Интернету" Then WinActivate("Мастер новых подключений", "&Подключить к Интернету" EndIf
Send("{DOWN}"
Send("{ENTER}"
WinWait("Мастер новых подключений", "Под&ключение удаленного доступа"
If Not WinActive("Мастер новых подключений", "Под&ключение удаленного доступа" Then WinActivate("Мастер новых подключений", "Под&ключение удаленного доступа" EndIf
Send("{DOWN}"
Send("{ENTER}"
WinWait("Мастер новых подключений", "Введите в следующем поле"
If Not WinActive("Мастер новых подключений", "Введите в следующем поле" Then WinActivate("Мастер новых подключений", "Введите в следующем поле" EndIf
ControlSetText ("Мастер новых подключений", "&Организация", "Edit1", "ОРГАНИЗАЦИЯ"
Send("{ENTER}"
WinWait("Мастер новых подключений", "Выберите, надо ли"
If Not WinActive("Мастер новых подключений", "Выберите, надо ли" Then WinActivate("Мастер новых подключений", "Выберите, надо ли" EndIf
ControlClick ("Мастер новых подключений", "Выберите, надо ли", "Button1", "left"
Send("{ENTER}"
WinWait("Мастер новых подключений", "Введите имя узла"
If Not WinActive("Мастер новых подключений", "Введите имя узла" Then WinActivate("Мастер новых подключений", "Введите имя узла" EndIf
ControlSetText ("Мастер новых подключений", "Введите имя узла", "Edit1", "89.188.96.94"
Send("{ENTER}"
Sleep(500)
If WinActive("Мастер новых подключений", "Создать это подключение:" Then
ControlClick ("Мастер новых подключений", "Создать это подключение:", "Button14", "left"
Else
WinWait("Мастер новых подключений", "Завершение работы мастера"
EndIf
If Not WinActive("Мастер новых подключений", "Завершение работы мастера" Then WinActivate("Мастер новых подключений", "Завершение работы мастера" EndIf
ControlClick ("Мастер новых подключений", "Завершение работы мастера", "Button1", "left"
Send("{ENTER}"
WinWait("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:"
If Not WinActive("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:" Then WinActivate("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:" EndIf
ControlSetText ("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:", "Edit1", "логин"
ControlSetText ("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:", "Edit2", "пароль"
ControlClick ("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:", "Button1", "left"
ControlClick ("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:", "Button6", "left"
WinWait("ОРГАНИЗАЦИЯ Свойства", "Общие"
If Not WinActive("ОРГАНИЗАЦИЯ Свойства", "Общие" Then WinActivate("ОРГАНИЗАЦИЯ Свойства", "Общие" EndIf
Send("{TAB}"
Send("{TAB}"
Send("{TAB}"
Send("{TAB}"
Send("{TAB}"
Send("{RIGHT}"
Send("{RIGHT}"
Sleep(500)
ControlClick ("ОРГАНИЗАЦИЯ Свойства", "Безопасность", "Button5", "left"
Sleep(500)
ControlClick ("ОРГАНИЗАЦИЯ Свойства", "Безопасность", "Button8", "left"
WinWait("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:"
If Not WinActive("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:" Then WinActivate("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:" EndIf
ControlClick ("Подключение: ОРГАНИЗАЦИЯ", "По&льзователь:", "Button5", "left"
If Not WinActive("Сетевые подключения", "Сетевые подключения" Then WinActivate("Сетевые подключения", "Сетевые подключения" EndIf
WinClose ("Сетевые подключения"