Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2008.01.13;
Скачать: [xml.tar.bz2];

Вниз

программно отключить соединение по локальной   Найти похожие ветки 

 
denissoft ©   (2007-05-01 17:55) [0]

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


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

ссылка на 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, далее копай сам.


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

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



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2008.01.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
15-1197018644
Greench
2007-12-07 12:10
2008.01.13
Скобки в арифметическом выражении


6-1178270779
Lobach
2007-05-04 13:26
2008.01.13
Обработка ошибки


15-1197012661
Бакук
2007-12-07 10:31
2008.01.13
Перенос почты Opera 9 —> Outlook 2003


2-1197386963
mufan
2007-12-11 18:29
2008.01.13
TRichEdit: блокировка Ctrl+C (ненужное копирование)


15-1197217747
Grain
2007-12-09 19:29
2008.01.13
Выборы грядут





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский