[boss911]

Пару раз уже проскакивали подобные темы, но давненько. Могу порекомендовать VBS скрипт, которым раньше и сам пользовался.
Сохранить с расширением vbs

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
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 2}"
WScript.Sleep 100
WshShell.SendKeys "имя подключения"
WScript.Sleep 20
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "номер телефона"
WScript.Sleep 20
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "логин"
WScript.Sleep 20
WshShell.SendKeys "{TAB}"
WScript.Sleep 20
WshShell.SendKeys "пароль"
WScript.Sleep 20
WshShell.SendKeys "{TAB}"
WScript.Sleep 20
WshShell.SendKeys "пороль"
WScript.Sleep 20
WshShell.SendKeys "{ENTER 2}"
WScript.Sleep 600

Подключение в скрытом режиме:

Код:

rasdial "имя подключения" пароль /phone:телефон