[решено] Автомат. изменение IP адреса

[zdughi]

помогите написать скрипт который будет менять ИП адрес,маску, гэйтвэй и ДНС-ы, спасибо, windows xp sp3, нужна ещё какая нибудь информация?

[Petya V4sechkin]

Фильтры и поиск (http://tools.oszone.net/Vadikan/faq.html#filters)

[решено] Батник для изменения сетевых настроек (http://forum.oszone.net/thread-141951.html)
[решено] Удаленная смена IP (http://forum.oszone.net/thread-148254.html)
[решено] Настройка "Подключения по локальной сети" с помощью CMD (http://forum.oszone.net/thread-153257.html)

[amel27]

Petya V4sechkin, категория всё-таки WSH... :unsure: ...пример на VBS:
strComputer = "."
strIP = Array("192.168.1.2")
strMask = Array("255.255.255.0")
strGateway = Array("192.168.1.1")
strDNS = Array("192.168.1.1")

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCON = objWMI.ExecQuery("Select * " & _
" From Win32_NetworkAdapterConfiguration " & _
" Where IPENabled=TRUE")
For Each objCON In colCON
objCON.EnableStatic strIP,strMask
objCON.SetGateways strGateway
objCON.SetDNSServerSearchOrder strDNS

Exit For
Next

[zdughi]

спасибо

[-Marshall-]

amel27, спасибо за скрипт, а можете ли вы его дополнить еще, чтоб стояло "Альтернативный DNS-адрес" ?

[fomin_]

-Marshall-,
Поправьте в скрипте строку и будет Вам "Альтернативный DNS-адрес"
strDNS = Array("192.168.1.1","192.168.1.3")
Только у скрипта есть особенность - если на компе несколько сетевых адаптеров, то все они получат одинаковые сетевые настройки

[-Marshall-]

fomin_, та у мя только одна сетевая карта, просто иногда я получаю интернет либо с компьютера, либо напрямую и каждый раз надо менять IPv4, а пока зайдешь, вспомнишь конфигурацию... Вобщем драгоценное время...
PS. Спасибо :)

[Wu-Tang]

Подправил vbs под себя:
strComputer = "."
strIP = Array("192.168.0.1")
strMask = Array("255.255.255.0")
strGateway = Array("")
strDNS = Array("")

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCON = objWMI.ExecQuery("Select * " & _
" From Win32_NetworkAdapterConfiguration " & _
" Where IPENabled=TRUE")
For Each objCON In colCON
objCON.EnableStatic strIP,strMask
objCON.SetGateways strGateway
objCON.SetDNSServerSearchOrder strDNS

Exit For
Next

А что подправить, чтоб выставлялось автоматически?

[amel27]

А что подправить, чтоб выставлялось автоматически? »
CMD/BAT - [решено] Удаленная смена IP (http://forum.oszone.net/showthread.php?p=1196460&highlight=EnableDHCP#post1196460) (пост #4 (http://forum.oszone.net/post-1196460-4.html))

[Wu-Tang]

amel27,
Хм, я эту тему смотрел, нужное не нашел.
Мне надо так:
http://s44.radikal.ru/i104/1009/1f/a482c4f8a7e4t.jpg (http://radikal.ru/F/s44.radikal.ru/i104/1009/1f/a482c4f8a7e4.jpg.html)

[amel27]

sComputer = "."

' подключение к компьютеру
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")

' получение конфигурации сетевого адаптера, где не включен DHCP
Set oNetAdapters = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

' включение DHCP
For Each oNetAdapter In oNetAdapters
oNetAdapter.EnableDHCP()
oNetAdapter.SetDNSServerSearchOrder(null)
Next

[Wu-Tang]

amel27,
Отлично, все пашет.
А не могли вы добавить комментарии в vbs, также как и выше:
strComputer = "."
strIP = Array("192.168.0.1")
strMask = Array("255.255.255.0")
strGateway = Array("")
strDNS = Array("")

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCON = objWMI.ExecQuery("Select * " & _
" From Win32_NetworkAdapterConfiguration " & _
" Where IPENabled=TRUE")
For Each objCON In colCON
objCON.EnableStatic strIP,strMask
objCON.SetGateways strGateway
objCON.SetDNSServerSearchOrder strDNS

Exit For
Next

[amel27]

strComputer = "." ' компьютер
strIP = Array("192.168.0.1") ' IP адрес
strMask = Array("255.255.255.0") ' маска подсети
strGateway = Array("") ' шлюз по умолчанию
strDNS = Array("") ' список DNS серверов

' Подключение к WMI компьютера
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Получение коллекции конфигураций сетевых TCP/IP адаптеров
Set colCON = objWMI.ExecQuery("Select * " & _
" From Win32_NetworkAdapterConfiguration " & _
" Where IPENabled=TRUE")
For Each objCON In colCON
objCON.EnableStatic strIP,strMask ' установка адреса/маски
objCON.SetGateways strGateway ' установка шлюза
objCON.SetDNSServerSearchOrder strDNS ' установка DNS

Exit For
Next

[Wu-Tang]

Спасибо.

[Vx1123]

Добрый день! Хочется реанимировать тему, т.к. тоже встал вопрос о смене статических настроек на многих компьютерах. Нужно изменить только параметры ШЛЮЗА. Для одного компьютера скрипт выполняется нормально, также, запуская на своем компьютере (под учеткой доменного админа) для другого компьютера сети по имени, скрипт также отрабатывает, шлюз меняется. Каким образом указать несколько компьютеров?
strComputer = "."
strComputer = "."
strComputer = "."
- Если так указывать имена комьютеров, скрипт не работает.
Или пойти дальше и сделать проверку по самому адресу всех компьютеров домена, чтобы проверял наличие шлюза и при совпадении 192.168.126.129 менял на 192.168.126.1?

[Busla]

Vx1123, может, раз пошла такая пьянка, всё-таки сделать правильно и перейти на dhcp? ;-)

[AlexM22204]

amel27, а можно в ваш скрипт из поста #13 (http://forum.oszone.net/post-1498302-13.html) вставить команду снятия выделения с пункта "Протокол Интернета версии 6 (TCP|IPv6) в окне "Подключения по локальной сети - свойства" :clapping: