Скрипт для создания интернет-соединения

[BigBoo]

Можно ли автоматизировать скриптом процесс создания интернет-соединения, то есть вот это манипуляции:

Подключить к интернету -> Установить подключение вручную -> Через высокоскоростое подключение -> Имя поставщика услуг -> Имя, Пароль -> Добавить ярлык на рабочий стол.

[Petya V4sechkin]

Программа для создания сетевых подключений VPN, Dail-Up и пр. (http://forum.oszone.net/thread-137672.html)

[BigBoo]

Программа для создания сетевых подключений VPN, Dail-Up и пр. »А можно рабочий пример использования, в той теме так и не было приведено конкретного примера.

И плюсом, хотелось бы использовать скрипт в процессе автоматической установки Windows XP, а как к этому прикрутить CMAK (Connection Manager Administration Kit — пакет администрирования диспетчера подключений)?

Может всё-таки проще скриптом, кто-нибудь реализовывал?

[Petya V4sechkin]

А можно рабочий пример использования
С картинками:
Пример создания компиляции в CMAK (http://tigrenokmosya.narod.ru/articles_cmak_ex.html)
Пакет управления подключениями Connection Manager Administration Kit (http://www.redline-software.com/rus/support/articles/security/vpn/windows2008-connection-manager-administrationkit.php)


в процессе автоматической установки
How to Accomplish a Quiet CMAK Profile Installation (http://support.microsoft.com/kb/265264/en-us)

скриптом, кто-нибудь реализовывал?
На AutoIt (http://forum.oszone.net/post-1016241.html#post1016241)
На VBS (http://forum.oszone.net/post-719670.html#post719670)


P. S. Еще статья
ИНСТРУКЦИИ: Сохранение и восстановление удаленных подключений в Windows XP (http://support.microsoft.com/kb/284269/ru)

[BigBoo]

Вопрос по скрипту VBS, а именно: я бы хотел имя соединения назвать русскими буквами, а логин, пароль соответственно на английском. Как сделать, чтобы скрипт вначале определял текущую раскладку клавиатуры и переключал на нужную в случае необходимости?...
WshShell.SendKeys "Интернет"
...
WshShell.SendKeys "Login"И второй вопрос, как сделать, чтобы при нажатии на созданный значок интернет-соединения уже стояла галочка "Сохранять имя пользовотеля и пароль", которая изначально не стоит, и пароль сбрасывается?

[BigBoo]

Вопрос с галочкой решил. Вот доработанный скрипт:Set WshShell = WScript.CreateObject("WScript.Shell")

'Задаём данные для доступа к интернету
Connect = "Internet" 'Название подключения
Login = "" 'Логин
Password= "" 'Пароль

'Создание интернет-подключения
WshShell.Run ("rundll32.exe netshell.dll,StartNCW")
WScript.Sleep 1000
WshShell.SendKeys "{ENTER 2}"
WScript.Sleep 100
WshShell.SendKeys "{down}"
WScript.Sleep 20
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "{down}"
WScript.Sleep 20
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys Connect
WScript.Sleep 20
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
if Login = "" then
WshShell.SendKeys "{TAB 3}"
WScript.Sleep 400
WshShell.SendKeys " "
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 400
WshShell.SendKeys " "
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
else
WshShell.SendKeys Login
WScript.Sleep 20
WshShell.SendKeys "{TAB}"
WScript.Sleep 20
WshShell.SendKeys Password
WScript.Sleep 20
WshShell.SendKeys "{TAB}"
WScript.Sleep 20
WshShell.SendKeys Password
WScript.Sleep 20
WshShell.SendKeys "{TAB}"
WScript.Sleep 400
WshShell.SendKeys " "
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 400
WshShell.SendKeys " "
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
end if

'В интернет-соединении ставим галочку "Сохранять имя пользователя и пароль", если не стоит
if Login = "" then
WSHShell.CurrentDirectory = WshShell.ExpandEnvironmentStrings("%AllUsersProfile%") & "\Application Data\Microsoft\Network\Connections\Pbk"
WSHShell.Run """rasphone.pbk"""

WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 400
WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400
WshShell.SendKeys " "
WScript.Sleep 100
WshShell.SendKeys "{TAB 3}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 400
WshShell.SendKeys "{ENTER}"
WScript.Sleep 400
WshShell.SendKeys "%{F4}"
end if Остался один вопрос:Как сделать, чтобы скрипт вначале определял текущую раскладку клавиатуры и переключал на нужную в случае необходимости? »