Скрипт для создания интернет-соединения
Можно ли автоматизировать скриптом процесс создания интернет-соединения, то есть вот это манипуляции:
Подключить к интернету -> Установить подключение вручную -> Через высокоскоростое подключение -> Имя поставщика услуг -> Имя, Пароль -> Добавить ярлык на рабочий стол.
|
| Petya V4sechkin |
08-02-2012 22:08 1854468 |
|
Цитата:
Цитата Petya V4sechkin
Программа для создания сетевых подключений VPN, Dail-Up и пр. »
|
А можно рабочий пример использования, в той теме так и не было приведено конкретного примера.
И плюсом, хотелось бы использовать скрипт в процессе автоматической установки Windows XP, а как к этому прикрутить CMAK (Connection Manager Administration Kit — пакет администрирования диспетчера подключений)?
Может всё-таки проще скриптом, кто-нибудь реализовывал? |
| Petya V4sechkin |
09-02-2012 11:26 1854691 |
|
Вопрос по скрипту VBS, а именно: я бы хотел имя соединения назвать русскими буквами, а логин, пароль соответственно на английском. Как сделать, чтобы скрипт вначале определял текущую раскладку клавиатуры и переключал на нужную в случае необходимости?
Код:
...
WshShell.SendKeys "Интернет"
...
WshShell.SendKeys "Login"
И второй вопрос, как сделать, чтобы при нажатии на созданный значок интернет-соединения уже стояла галочка "Сохранять имя пользовотеля и пароль", которая изначально не стоит, и пароль сбрасывается? |
Вопрос с галочкой решил. Вот доработанный скрипт:
Код:
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
Остался один вопрос:
Цитата:
Цитата BigBoo
Как сделать, чтобы скрипт вначале определял текущую раскладку клавиатуры и переключал на нужную в случае необходимости? »
|
|
Время: 12:44.
© OSzone.net 2001-
