Смена адресов DNS на всех компах в домене.

dimich22 · Отправлено: **10:02, 23-10-2007** | #2

DHCP спасет отца русской демократии.

Butunin Klim · Отправлено: **10:03, 23-10-2007** | #3

Код:

'Если ошибка продолжаем далее.
On Error Resume Next
strComputer = inputBox("Введите имя ПК:") 'Вводим имя компьютера
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(inputBox("Введите IP?:")) 'Вводим IP новый.
strSubnetMask = Array(inputBox("Введите Mask?:")) 'Вводим новую Mask.
strGateway = Array(inputBox("Введите Gateway?:")) 'Вводим новый шлюз
strGatewayMetric = Array(1)'Прижелании можно и метрику выставлять
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    If errEnable = 0 Then
        WScript.Echo "The IP address has been changed."
    Else
        WScript.Echo "The IP address could not be changed."
    End if
Next

On Error Resume Next

'strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    arrDNSServers = Array("192.168.1.101" , "192.168.1.100")
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next

Это если DHCP поставишь

Код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
For Each objNetAdapter In colNetAdapters
    'Reset IP Address and Default Gateway to DHCP
    errEnable = objNetAdapter.EnableDHCP()
    'Reset DNS Server list to DHCP
    arrDNSServers = Array()
    objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
    'Reset DNS Server Domain to DHCP
    strDNSDomain = ""
    objNetAdapter.SetDNSDomain strDNSDomain
    'Reset WINS Server list to DHCP
    strPrimaryServer = ""
    strSecondaryServer = ""
    objNetAdapter.SetWINSServer strPrimaryServer, strSecondaryServer
    'Reset DNS Server Suffix list
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
    arrDNSSuffixes = Array("", "")
    objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes)
Next

zippi · Отправлено: **10:14, 23-10-2007** | #4

DHCP тоже не катит - в сети статическая адресация, а чтобы подлнять динамическую надо опять же бегать и менять на 200 компах руками.

Butunin Klim · Отправлено: **10:16, 23-10-2007** | #5

zippi,
Скрипт посмотри нижний

Цитата Butunin Klim:

Это если DHCP поставишь »

Ладно для тех кто в танке...
Этот крипт сбрасывает настроки сетевой карты и ищит ДНСП сервер в твоей сети.
Тоесть ты ставишь ДШСП сервер.
Через Груповую политику запускаешь скрипт через логон или логоф. И все живешь спокойно

Тем более тебе нужен ДШЦП. так как 200 машин рано или поздно ты будешь страдать от этого (хотя что-то мне подсказывает что их там гораздо меньше)

zippi · Отправлено: **10:42, 23-10-2007** | #6

2Butunin Klim
Сорри. Из маленьких окошек Т-34 я не увидел твой скрипт. DHCP вообщето есть в сети и обслуживает небольшую
ее часть. Но дело в том, что адреса некоторых компов должны быть статическими. Все же хотелось сделать через GP,
наверника есть какая-то тонкость которую я не вкурил.

dimich22 · Отправлено: **10:59, 23-10-2007** | #7

В GP - Конфигурация компьютера - Административные шаблоны - Сеть - DNS-клиент

Butunin Klim · Отправлено: **11:40, 23-10-2007** | #8

Код:

'strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    arrDNSServers = Array("192.168.1.101" , "192.168.1.100")
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next

ТОгда этот кусочек
Измените на ваш DNS

SentAmalgama · Отправлено: **06:29, 28-01-2016** | #9

Помогите решить задачу с добавление альтернативного ДНС в сетевой интерфейс
Команда из CMD отрабатывает успешно, а из файла не идет- синтакс. ошибка.
Предполагаю, что из-за русских букв и пробелов.
Вот успешная команда.

Код:

netsh interface ip add dnsservers "Подключение по локальной сети" 192.168.2.252

Angry Demon · Отправлено: **08:06, 28-01-2016** | #10

Цитата SentAmalgama:

Предполагаю, что из-за русских букв

Верно полагаете. Первой строчкой CMD-шника сделайте chcp 1251 или переименуйте сетевое подключение, например, в LAN.