работа с netshell.dll или сетевой картой в windows

← →
artemca (2006-09-08 13:46) [0]

Привет всем!
Если кто-то разбирался с сетевухой,
а именно - ее включение/выключение программно на delphi

или

знает как работать с netshell.dll (ее описание/набор ее функций, чтобы вызывать их из delphi)

ПЛИЗЗЗЗЗЗ!!!!!!!! подскажите, буду очень благодарен.
ЗАРАНЕЕ ОГГГГРОММНОЕЕ СПАСССИБО!!!!!!

← →
Сергей М. © (2006-09-08 14:02) [1]

netshell.dll знать не знает ни про какие "сетевухи", эта библиотека работает с сетевыми интерфейсами, а не с физ.устройствами.

← →
artemca (2006-09-08 21:14) [2]

НАПИШИТЕ пожайлуста как программно(на delphi или *.bat-файлом)
выключить подключение по локальной сети (сетевую карту)

Файл net_off.vbs:
strComputer = "."

Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " _
& "Where IPEnabled = True")
For Each objNetCard in colNetCards
objNetCard.ReleaseDHCPLease()
Next

====

Файл net_on.vbs:
strComputer = "."

Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " _
& "Where IPEnabled = True")
For Each objNetCard in colNetCards
objNetCard.RenewDHCPLease()
Next

:-)

работа с netshell.dll или сетевой картой в windows Найти похожие ветки