[amel27]

Vic_tory, попробуйте так:

Код:

Run("rundll32.exe netshell.dll,StartNCW")

$TITLE = "Мастер новых подключений"
While WinWaitActive($TITLE, "", 3)
    $TEXT = WinGetText("")
    Select
        Case StringInStr($TEXT,'Этот мастер поможет:')
        Case StringInStr($TEXT,'Подключить к рабочей сети (используя удаленный доступ или VPN), чтобы можно было работать из дома, удаленного офиса или другого места.')
            ControlClick ("","","Button2")
        Case StringInStr($TEXT,'Создать подключение')
            ControlClick ("","","Button2")
        Case StringInStr($TEXT,'Организация')
            ControlSetText("","","Edit1","Name")
        Case StringInStr($TEXT,'Выберите, надо ли автоматически подключаться к Интернету или иной общей сети перед установлением виртуального подключения.')
            ControlClick ("","","Button1")
        Case StringInStr($TEXT,'Имя компьютера или IP-адрес (например, microsoft.com или 157.54.0.1):')
            ControlSetText("","","Edit1","Host")
        Case StringInStr($TEXT,'Создать это подключение:')
            ControlCommand("","","Button1","Check","")
        Case StringInStr($TEXT,'Завершение работы мастера новых подключений')
            ControlCommand("","","Button10","UnCheck","")
        Case Else
            Sleep ('100')
            ContinueLoop
    EndSelect
    Sleep ('500')
    Send('{Enter}')
WEnd