[Petya V4sechkin]

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

[BigBoo]

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

А можно рабочий пример использования, в той теме так и не было приведено конкретного примера.

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

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

[Petya V4sechkin]

А можно рабочий пример использования

С картинками:

• Пример создания компиляции в CMAK
• Пакет управления подключениями Connection Manager Administration Kit

в процессе автоматической установки

How to Accomplish a Quiet CMAK Profile Installation

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

• На AutoIt
• На VBS

P. S. Еще статья
ИНСТРУКЦИИ: Сохранение и восстановление удаленных подключений в Windows XP

[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

Остался один вопрос:

Как сделать, чтобы скрипт вначале определял текущую раскладку клавиатуры и переключал на нужную в случае необходимости? »