[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

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

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