| Вопрос: Отключение сетевого адаптера... | Добавлено: 05.02.08 18:03 |
Автор вопроса:  weart
|
|
Hi, all. Прочитал форум так и не нашел ответ.
Задача через VBScript отключить/включить сетевой адаптер. Как или через что можно это реализовать. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Alexandrus ICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #1 | Добавлено: 05.02.08 19:19 |
Увы,я и под VB6 не нашёл Буду рад ,если поделишься кодом ...когда найдёшь... Из под VBScript я и под VB6 переделаю
|
||
|
Номер ответа: 2 Автор ответа: weart Вопросов: 2 Ответов: 1 |
Профиль | | #2 | Добавлено: 06.02.08 06:53 |
|
Вот нашел срипт, который изменяет состояние сетевого адаптера, взято с http://forum.sources.ru
за что им отдельное спасибо. Работает winXP/ 2000 - проверенно strNetConn = "Сетевые подключения" ' Network Connections для англ. версии ОС strConn = "Подключение по локальной сети" ' имя или часть имени подключения strEnable = "&Включить" ' En&able для англ. версии ОС strDisable = "&Отключить" ' Disa&ble для англ. версии ОС Set objShell = CreateObject("Shell.Application" 
Set objCP = objShell.Namespace(3) ' Панель управления For Each elem in objCP.Items If elem.Name = strNetConn Then ' получение папки "Сетевые подключения" Set colNetwork = elem.GetFolder Exit For End If Next Set Conn = Nothing For Each clsConn in colNetwork.Items If Instr(LCase(clsConn.name), LCase(strConn)) Then ' получение указанного подключения Set Conn = clsConn Exit For End If Next If Conn Is Nothing Then WScript.Echo "Network Connection not found" WScript.Quit End If bEnabled = True Set objEnable = Nothing Set objDisable = Nothing For Each clsVerb in Conn.verbs ' если доступен глагол "Enable", подключение отключено If clsVerb.Name = strEnable Then Set objEnable = clsVerb bEnabled = False End If ' если доступен глагол "  isable", подключение подключено
If clsVerb.name = strDisable Then Set objDisable = clsVerb End If Next If bEnabled Then objDisable.DoIt strStatus = "disabled." Else objEnable.DoIt strStatus = "enabled." End If WScript.Sleep 1000 WScript.Echo Conn.Name & " " & strStatus |
||
Страница: 1 |