VBS/WSH/JS - [решено] Автомат. изменение IP адреса

[zdughi]

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

[amel27]

Фильтры и поиск

CMD/BAT - [решено] Батник для изменения сетевых настроек.

CMD/BAT - [решено] Удаленная смена IP

CMD/BAT - [решено] Настройка "Подключения по локальной сети" с помощью CMD

[amel27]

Petya V4sechkin, категория всё-таки WSH... ...пример на 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

[Petya V4sechkin]

спасибо

[zdughi]

спасибо

[-Marshall-]

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

[fomin_]

-Marshall-,

Поправьте в скрипте строку и будет Вам "Альтернативный DNS-адрес"

strDNS = Array("192.168.1.1","192.168.1.3")

Только у скрипта есть особенность - если на компе несколько сетевых адаптеров, то все они получат одинаковые сетевые настройки

[-Marshall-]

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

PS. Спасибо

[amel27]

Цитата Wu-Tang:



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

VBS/WSH/JS - [решено] Автомат. изменение IP адреса

CMD/BAT - [решено] Удаленная смена IP

(пост

CMD/BAT - [решено] Удаленная смена IP

)

[amel27]

amel27,

Хм, я эту тему смотрел, нужное не нашел.

Мне надо так: