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

Собственно в названии темы отражена суть вопроса. Как при помощи VBScript изменить сетевые настройки сетевого карты в альтернативной конфигурации TCP/IP при включеном DHCP (IP адрес, маску, шлюз и DNS, WINS). Всем спасибо.

Люди, подскажите тогда пожалуйста возможно ли это вообще... (может через cmd) Если да, то куда мне глядеть, чтоб докопаться до истины. Я знаю есть такая команда netsh, но вроде бы не нашел, то, что нужно, а может плохо глядел.

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

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

Вообщем материала много, а нет того, что мне нужно, или я не вижу очевидное решение проблемы. Подскажите пожалуйста. Истина должна быть рядом. Спасибо.

Неужели никто не знает решения проблемы???

вопрос актуален

кому интересно вот решение
http://www.vbfrance.com/codes/CONFIGURATION-IP-ALTERNATIVE-AVEC-DHCP-ACTIF-ALTERNATE-IP_41427.aspx

Немного доработанный код. Учтены некоторые ошибки.
Для работы скрипта обратите внимание на эту строку:

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