[решено] Автомат. изменение IP адреса
помогите написать скрипт который будет менять ИП адрес,маску, гэйтвэй и ДНС-ы, спасибо, windows xp sp3, нужна ещё какая нибудь информация?
|
| Petya V4sechkin |
30-10-2009 11:33 1256455 |
|
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
|
| -Marshall- |
10-01-2010 22:13 1316667 |
amel27, спасибо за скрипт, а можете ли вы его дополнить еще, чтоб стояло "Альтернативный DNS-адрес" ?
|
-Marshall-,
Поправьте в скрипте строку и будет Вам "Альтернативный DNS-адрес"
strDNS = Array("192.168.1.1","192.168.1.3")
Только у скрипта есть особенность - если на компе несколько сетевых адаптеров, то все они получат одинаковые сетевые настройки
|
| -Marshall- |
11-01-2010 23:22 1317681 |
fomin_, та у мя только одна сетевая карта, просто иногда я получаю интернет либо с компьютера, либо напрямую и каждый раз надо менять IPv4, а пока зайдешь, вспомнишь конфигурацию... Вобщем драгоценное время...
PS. Спасибо :)
|
Подправил 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,
Хм, я эту тему смотрел, нужное не нашел.
Мне надо так:
|
Код:
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
|
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
|
Код:
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
|
Добрый день! Хочется реанимировать тему, т.к. тоже встал вопрос о смене статических настроек на многих компьютерах. Нужно изменить только параметры ШЛЮЗА. Для одного компьютера скрипт выполняется нормально, также, запуская на своем компьютере (под учеткой доменного админа) для другого компьютера сети по имени, скрипт также отрабатывает, шлюз меняется. Каким образом указать несколько компьютеров?
Код:
strComputer = "."
strComputer = "."
strComputer = "."
- Если так указывать имена комьютеров, скрипт не работает.
Или пойти дальше и сделать проверку по самому адресу всех компьютеров домена, чтобы проверял наличие шлюза и при совпадении 192.168.126.129 менял на 192.168.126.1? |
Vx1123, может, раз пошла такая пьянка, всё-таки сделать правильно и перейти на dhcp? ;-)
|
| AlexM22204 |
30-07-2012 16:35 1961579 |
amel27, а можно в ваш скрипт из поста #13 вставить команду снятия выделения с пункта "Протокол Интернета версии 6 (TCP|IPv6) в окне "Подключения по локальной сети - свойства" :clapping:
|
Время: 17:36.
© OSzone.net 2001-
