FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9210
Вход
Определение МАС адреса сетевых карт с помощью Windows Management Instrumentation.

Определение МАС адреса сетевых карт с помощью Windows Management Instrumentation.


 
Прислал: Vit   Категория: Сети (Интернет и др.)


Определение МАС адреса сетевых карт
с помощью Windows Management Instrumentation.


Не работает в Win95/98 и как смею предположить в МЕ.
Работает на WinXP и возможно NT/2000, у меня нет возможности проверить.
Если кто попробует буду признателен если сообщите результат.

#Define NETADAPTER_PATH '.DeviceID="'
oSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
oSWbemService = oSWbemLocator.ConnectServer()

oNetAdapt = oSWbemService.Get("Win32_NetworkAdapter")
oNetAdapt.Security_.ImpersonationLevel = 3
oColNetAdapts = oNetAdapt.Instances_

For i = 1 to oColNetAdapts.Count
    oNetAdapt0 = oColNetAdapts.Item(oNetAdapt.Path_.Path + NETADAPTER_PATH + str(i, iif(i<10, 1, 2)) + '"')
    If oNetAdapt0.AdapterTypeID = 0 && отбираем только ETHERNET адаптеры
        ? oNetAdapt0.ProductName
        ? oNetAdapt0.MACaddress
        ? oNetAdapt0.DeviceID
        ? oNetAdapt0.Manufacturer
    Endif
Endfor

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.858)
Дополнения пользователей
Определение МАС адреса сетевых карт с помощью Windows Management Instrumentation.
[+][?]
Валерий
16.10.02 17:27:05

Под 2000 работает Fox 5.0

Валерий
16.10.02 17:27:14

Под 2000 работает Fox 5.0

[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика