Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

программно отключить соединение по локальной [D6, D7, WinXP]


denissoft ©   (2007-05-01 17:55:00) 

Здравствуйте!
Как правильно программно отключить соединение по локальной сети а после чего его подсоединить либо заменить ip адрес в MS Server 2003


smirnov   (2007-05-04 13:25:00) [1]

http://msdn2.microsoft.com/en-us/library/aa394595.aspx


smirnov   (2007-05-04 13:07:00) [2]

ссылка на MSDN
ms-help://MS.MSDNQTR.v80.en/MS.MSDN.v80/MS.WIN32COM.v10.en/wmisdk/wmi/wmi_tasks__networking.htm

там приведены примеры работы с сетевым адаптером через WMI, с vbscript переписать на Delphi можно просто, используя пример

var SWbemLocator, objWMIService, Adapters: variant;
begin
    SWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
   objWMIService = SWbemLocator.ConnectServer('LocalHost','\ROOT\CIMV2','','','','',128);
  Adapters := objWMIService.ExecQuery('Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True');
//и т.д. почти в полном соответствии с примерами на vbscript
end;

Но насколько я понял, используя WMI нельзя отключить адаптер, который использует статический IP, зато можно поменять статический IP, далее копай сам.


Наверх

Титульная страница Поиск, карта сайта Написать письмо