Win XP/2k Сетевые подключения по сети

[Andrev]

Есть две сетевых карты. Одно - для локальной сети, вторая - через АДСЛ обеспечивает выход в интернет. Периодически интернет пропадает. Переподключение (правой кнопкой на "сетевое подключение" "отключить" - "включить") и дальнейшее ВПН-соединение восстанавливает статус-кво.
Теперь вопрос- пока я буду заниматься интимными делами с тетевухой, провайдером, директором и прчими примкнувшими к ним лицами, можно ли как-то программно переподцлючать сетевое подключение (господи прости, какая фраза!...)?
Иными словами, можно ли как-то командно отключить сетевое подключение, а потом его снова включить?

[Andrev]

Блин! Я промахнулся - не в тот раздел вопрос запостил. Модеры - переместите!!!

[iGrok]

Есть две сетевых карты. Одно - для локальной сети, вторая - через АДСЛ обеспечивает выход в интернет. Периодически интернет пропадает. Переподключение (правой кнопкой на "сетевое подключение" "отключить" - "включить") и дальнейшее ВПН-соединение восстанавливает статус-кво.
Теперь вопрос- пока я буду заниматься интимными делами с тетевухой, провайдером, директором и прчими примкнувшими к ним лицами, можно ли как-то программно переподцлючать сетевое подключение (господи прости, какая фраза!...)?
Иными словами, можно ли как-то командно отключить сетевое подключение, а потом его снова включить?

Ну раз всё равно будут перемещать..

Посмотри в сторону утилиты netsh. Для неё по идее можно написать батник, делающий то, что тебе нужно..

[Andrev]

Что-то не нашел в списке опций ничего ни про отключение, ни про подключение.

[Хакер]

Тема перемещена.

[Andrev]

Спасибо.

[iGrok]

Что-то не нашел в списке опций ничего ни про отключение, ни про подключение.

Хм.. Ну может и так. Я её особо не ковырял, это просто было первое пришедшее в голову.

Тогда посмотри сюда:
http://forum.sysfaq.ru/index.php?showto ... entry87386

Хотя там пишут, что вроде как подключали/отключали VPN с помощью netsh..

[Andrev]

Хм... Цитата с того же сайта:
Использовал netsh, в свое время, для подключения VPN-ов, однако, как я понял, netsh не подходит для подключения/отключения статических интерфейсов.

[arvitaly]

В общем говоря была такая проблема, я не стал заморачиваться с API (хотя наброски были и это вполне реально).
В примере тупо находится в панели управления сетевые подключения и нужно соединение. Конкретно этот пример подключает соединение.
Но...
Как всегда но. В свойствах соединения надо убрать галочку "Запрашивать имя пользователя и пароль". Хотя эт не так страшно. В общем пользуйся, думаю как раз для твоих задач

Код: Выделить всё

On Error GoTo err
Dim aa As New Shell
Dim folder1 As Folder
Dim fi As FolderItem
Set folder1 = aa.[NameSpace](3)
        'панель управления
        For Each fi In folder1.Items()
         If LCase(fi.Name) = "сетевые подключения" Then
         
         Dim fff As Folder
        Set fff = fi.GetFolder
        Dim it1 As FolderItems2
        Dim i As Integer
        i = 0
        While fff.Items.Item(i).Name <> ""
        If LCase(fff.Items.Item(i).Name) = "ADSL_Connection" Then '''Здесь имя соединения'
            If fff.Items.Item(i).Verbs().Item(0).Name <> "&Отключить" Then
                fff.Items.Item(i).Verbs().Item(0).DoIt
            End If
        End If
        i = i + 1
        Wend

         End If
        Next fi
err:
If err.Number = 91 Then Exit Sub
        Exit Sub

[Andrev]

В общем говоря была такая проблема, я не стал заморачиваться с API (хотя наброски были и это вполне реально).
В примере тупо находится в панели управления сетевые подключения и нужно соединение. Конкретно этот пример подключает соединение

Ха-ха-ха!!! Молодец! Работает!