[Petya V4sechkin]

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

[решено] Батник для изменения сетевых настроек
[решено] Удаленная смена IP
[решено] Настройка "Подключения по локальной сети" с помощью 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

[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 (пост #4)

[Wu-Tang]

amel27,
Хм, я эту тему смотрел, нужное не нашел.
Мне надо так: