Отключить сетевое подключение

[Hakal]

В общем, задача в том, чтобы программно отключить, а потом опять включить подключение по локальной сети ))
Проблема заключается еще в том, что у меня стоит Windows7.
Может быть, кто-нибудь что-нибудь подскажет?

[glGizma]

В JEDI-VCL есть данная процерура, а как точно тебе код дать, пока немогу сказать, время будет помогу.

[baldr]

Привет от гугла:

AutoIt:
* http://www.autoitscript.com/forum/index.php?showtopic=99231

MSDN:
* Enable Method of the Win32_NetworkAdapter Class: http://msdn.microsoft.com/en-us/library/aa390385(VS.85).aspx
* Disable Method of the Win32_NetworkAdapter Class: http://msdn.microsoft.com/en-us/library/aa390364(VS.85).aspx

Enable/disable a device from the command line: http://en.kioskea.net/faq/1886-enable-disable-a-device-from-the-command-line

[Sla]

devcon - страшная штука

однажды отключил USB и при этом забыл, что клава, мышь, принтер подключены по usb. А всего навсего хотелось отключить usb-modem.
помогла перезагрузка с поиском новых устройств...

[Hakal]

Привет от гугла

А кто это?

Как-то я там ни чего полезного для себя не нашел!
Может есть еще предложения?

[baldr]

Hakal, а чем не устроили ссылки, которые я привел? Там даже код для WSH есть.

[Hakal]

А можно поподробнее? я просто еще не настолько хорошо Delphi знаю, мож что-то не понял!))

[Hakal]

Ну и что?

[Sel]

Ну и то: прочти материал по ссылкам и скажи, чего "полезного" ты там не нашел.

[Hakal]

Не нашел как сделать это в Delphi ! Я еще раз говорю, что я еще только начинаю осваивать программирование и может что-то не понял, и по этому попросил объяснить!
Ну если вам трудно ....

[Sla]

Hakal, нам не трудно... тебе дали направление, показали что читать, что понимать, но не сказали КА.
Как - ты должен принять сам.
Если поймешь самостоятельно - модлодец. Если ждешь готового ответа, то ЗДЕСЬ ты его не получишь, не по причине не знания, а по причине нашей лени. И... ведь мы свои знания получали так же как и ты по крупинкам, основываясь на документации и готовых решениях, пусть даже они и были закрыты в черных ящиках.
Если что-то непонятно в документации, то тебе ЗДЕСЬ объяснят, но за тебя никто делать не будет.

зы. отключаю сетевую карту исключительно программным способом - написан батник.

[Hakal]

Ну может в таком случае поделитесь батником?

[Sla]

Не дам
Давай здесь его вместе напишем
Есть такая команда netsh

вызываем помощь и читаем

Применимы следующие команды:

Команды в этом контексте:
?              - Отображение списка команд.
add            - Добавление элемента конфигурации в список элементов.
bridge         - Изменения в контексте 'netsh bridge'.
delete         - Удаление элемента конфигурации из списка элементов.
diag           - Изменения в контексте 'netsh diag'.
dump           - Отображение сценария конфигурации.
exec           - Запуск файла сценария.
firewall       - Изменения в контексте 'netsh firewall'.
help           - Отображение списка команд.
interface      - Изменения в контексте 'netsh interface'.
lan            - Изменения в контексте 'netsh lan'.
nap            - Изменения в контексте 'netsh nap'.
ras            - Изменения в контексте 'netsh ras'.
routing        - Изменения в контексте 'netsh routing'.
set            - Обновление параметров конфигурации.
show           - Отображение информации.
winsock        - Изменения в контексте 'netsh winsock'.

Ищем что нибудь похожее для отключения...
Ага... отключать нужно интерфейс
Продолжаем
netsh interface help
Команды в этом контексте:
?              - Отображение списка команд.
add            - Добавление элемента конфигурации в таблицу.
delete         - Удаление элемента конфигурации из таблицы.
dump           - Отображение сценария конфигурации.
help           - Отображение списка команд.
ip             - Изменения в контексте 'netsh interface ip'.
ipv6           - Изменения в контексте 'netsh interface ipv6'.
portproxy      - Изменения в контексте 'netsh interface portproxy'.
reset          - Сброс сведений конфигурации.
set            - Установка информации конфигурации.
show           - Отображение сведений конфигурации.

Изучаем конфигурацию

netsh interface show
Применимы следующие команды:

Команды в этом контексте:
show credentials - Отображение учетных данных, используемых для подключения к интерфейсу.
show interface - Отображение интерфейсов.


netsh interface show interface

Состояние адм.  Состояние     Тип              Имя интерфейса
---------------------------------------------------------------------
Разрешен                      Выделенный       Подключение по локальной сети
Разрешен                      Внутренний       Внутренний
Разрешен                      Замыкание на себя Замыкание на себя

Чего мы добились? Знаем какие интерфейсы у нас есть

Возвращаемся к помощи по интерфейсу и видим есть команда SET
можно предположить, что, наверное, там есть возможность.
Вперед

netsh interface set interface help

Использование: set interface [name = ] Имя_интерфейса
              [ [admin = ] ENABLED|DISABLED
              [connect = ] CONNECTED|DISCONNECTED
              [newname = ] Новое_имя ]

      Устанавливает параметры интерфейса.

      IfName  - Имя интерфейса
      admin   - Должен ли этот интерфейс быть разрешенным (только не в LAN).
      connect - Подключен ли этот интерфейс (только не в LAN).
      newname - Новое имя этого интерфейса (только LAN).

      Примечания:
      - Кроме текущего имени должен быть указан по крайней мере один параметр.
      - Если указано connect = CONNECTED, то интерфейс будет автоматически
        разрешен, даже если указано значение параметра
        admin = DISABLED.

Дальше продолжи сам.

[Hakal]

О, Спасибо!
Только возникла такая проблема:

netsh interface set interface name="net" admin=ENABLED connect=DI
SCONNECTED

Выделенные интерфейсы не могут быть подключены или отключены.
Не удается завершить выполнение функции.

Что я делаю не так?

[Sla]

покажи

netsh interface show interface

[Hakal]

netsh interface show interface

Состояние адм.  Состояние     Тип              Имя интерфейса
---------------------------------------------------------------------
Разрешен       Подключен      Выделенный       net

[Sla]

извини, у тебя XP? работать не будет (у меня 2003, там работает)

качай devcon

[Hakal]

У меня Widows7
а не подскажешь как с этим devcon'ом обращаться? а то я почитал, но так не че и не понял((

[Sla]

стоп...
а  ты работаешь под учеткой пользователя?
А отключать интерфейс может только админ

[Hakal]

Ну да, под учетной записью! но у меня она с правами админа!

[Sla]

покажи

netsh interface set interface help

[Hakal]

Вот:

netsh interface set interface help

Использование: set interface [name = ] Имя_интерфейса
              [ [admin = ] ENABLED|DISABLED
                [connect = ] CONNECTED|DISCONNECTED
                [newname = ] Новое_имя ]

      Устанавливает параметры интерфейса.

      IfName  - имя интерфейса
      admin   - должен ли этот интерфейс быть разрешенным.
      connect - подключен ли этот интерфейс (только не в LAN).
      newname - новое имя этого интерфейса (только LAN).

      Примечания:
      - Кроме текущего имени должен быть указан по крайней мере один параметр.
      - Если указано connect = CONNECTED, то интерфейс будет автоматически
        разрешен, даже если указано значение параметра
        admin = DISABLED.

Примеры:

      set interface name="Local Area Connection" admin=DISABLED
      set interface name="Local Area Connection" newname="Connection 1"

[Sla]

set interface name="Net" admin=DISABLED

так работает?

[Sla]

если внимательно читать хелп
admin   - должен ли этот интерфейс быть разрешенным.
connect - подключен ли этот интерфейс (только не в LAN).


Используется не для LAN интерфейсов.

[Hakal]

set interface name="Net" admin=DISABLED

так работает?

во... эта команда делает именно то, что мне надо! Огромное Спасибо

[Sla]

Ну вот видишь - и Delphi не понадобился