[boss911]

Скрипт для создание Dial-Up соеденения! Запускаю только в винде, на t12 не пробЫвал, но кажетса наверно, что не сработает!!
Сохранить с расширением 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