Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

» VBS: Сменить сетевые настройки в альтернативной конфигурации

Автор: Gr0l
Дата сообщения: 25.02.2009 20:26
Собственно в названии темы отражена суть вопроса. Как при помощи VBScript изменить сетевые настройки сетевого карты в альтернативной конфигурации TCP/IP при включеном DHCP (IP адрес, маску, шлюз и DNS, WINS). Всем спасибо.
Автор: Gr0l
Дата сообщения: 27.02.2009 23:23
Люди, подскажите тогда пожалуйста возможно ли это вообще... (может через cmd) Если да, то куда мне глядеть, чтоб докопаться до истины. Я знаю есть такая команда netsh, но вроде бы не нашел, то, что нужно, а может плохо глядел.
Автор: Smitis
Дата сообщения: 03.03.2009 10:18
netsh dump выведет все настройки. Можно их взять за основу написания своего скрипта.
Вот пример из моих настроек

Код:
pushd interface ip
set address name="Wireless" source=static addr=192.168.0.64 mask=255.255.255.0
set address name="Wireless" gateway=192.168.0.1 gwmetric=0
set dns name="Wireless" source=static addr=192.168.0.1 register=PRIMARY
#add dns name="Wireless" addr=10.4.1.6
popd
Автор: Gr0l
Дата сообщения: 03.03.2009 14:14
Smitis: в том то и дело, что вопрос не такой легкий, как кажется. В своих примерах ты меняешь статический IP адрес и маску, а мне нужно, менять IP и маску в альтернативныйх настройках TCP/IP, когда включен DHCP. Вообщем наверно это называтся менять настройки APIPA.

Зачем это нужно? Мне кажется ответ простой. Когда DHCP сервер недоступен и получить автоматичеси IP адрес и прочие сетевые настройки невозможно, то в дело включается альтернативная конфигурация. Допустим сто рабочих станций получают IP адреса с DHCP сервера, а если сервер будет не доступен, то в этом случае поможет предварительно настроенная APIPA на рабочих станциях. Чтоб настроить на рабочих станциях в ручную альтернативную конфигурацию придется потратить кучу времени, а если рабочих станций 200, 500 и т.д., то вручную это будет уже не осилить.

Здесь хороший материал про настройки сетевой конфигурации при помощи VBScript:
http://netdocs.ru/articles/Managing-Windows-Networks-Using-Scripting.html
http://www.activexperts.com/activmonitor/windowsmanagement/scripts/networking/client/
Также хороший материал можно найти на msdn:
http://msdn.microsoft.com/en-us/library/aa394217(VS.85).aspx

Вообщем материала много, а нет того, что мне нужно, или я не вижу очевидное решение проблемы. Подскажите пожалуйста. Истина должна быть рядом. Спасибо.
Автор: Gr0l
Дата сообщения: 15.04.2009 16:56
Неужели никто не знает решения проблемы???
Автор: rus_admin
Дата сообщения: 02.03.2010 07:43
вопрос актуален
Автор: rus_admin
Дата сообщения: 10.03.2010 15:50
кому интересно вот решение
http://www.vbfrance.com/codes/CONFIGURATION-IP-ALTERNATIVE-AVEC-DHCP-ACTIF-ALTERNATE-IP_41427.aspx
Автор: Gr0l
Дата сообщения: 24.01.2014 15:21
Немного доработанный код. Учтены некоторые ошибки.
Для работы скрипта обратите внимание на эту строку:

Код:
bOper = (Not IsEmpty(sMask)) And (InStr(1, sIP, "10.0.0.") >= 1) And (sDomain = "domen.loc") 'And objAdapter.DHCPEnabled    

Страницы: 1

Предыдущая тема: Reportingfor.info - новое на сайте


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.