В помощь ИТ специалисту 

Массовый перевод на DHCP

Рассматриваются вопросы связанные с автоматизацией процесса управления сетью, установки программного обеспечения, управления пользователями и т.д.

Модератор: Модераторы

Ответить
orthodox
Активный пользователь
Сообщения: 141
Зарегистрирован: 30 июн 2005, 18:28
Откуда: Москва

Сообщение orthodox » 11 май 2006, 08:29

ДВС!

Требуется перевести некоторое количество компутеров со статическим IP на динамический. Явного инструмента у MS я не нашел.

Компьютеры в домене.
Вернуться к началу
biruk
Активный пользователь
Сообщения: 1134
Зарегистрирован: 19 июл 2004, 11:30
Откуда: Москва

Сообщение biruk » 12 май 2006, 20:54

Код
C:\>netsh interface ip set address name="Подключение по локальной сети" source=dhcp
[/code]


а как это запустить на кождой тачке - сам придумай :)
Trust me - i know what i’m doing © Sledge Hummer
Вернуться к началу
Белый котик
Пользователь
Сообщения: 64
Зарегистрирован: 19 май 2005, 15:32
Откуда: Екатеринбург

Сообщение Белый котик » 17 май 2006, 10:54

Цитата (biruk @ 12.05.2006 - 19:54)
Код
C:\>netsh interface ip set address name="Подключение по локальной сети" source=dhcp
[/code]


а как это запустить на кождой тачке - сам придумай :)
[/quote]

предлагаю отсканировать сетку, результаты сохранить в файлик, а дальше VB-скрипт читает файлик и выполняет указанную команду
вот тебе и резервирование
Вернуться к началу
domovoy
Администратор
Сообщения: 3444
Зарегистрирован: 19 дек 2003, 13:36
Откуда: Москва

Сообщение domovoy » 18 май 2006, 10:19

Можно выполнить просто скрипт при помощи групповых политик.

Установка 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
   errEnable = objNetAdapter.EnableDHCP()
Next

[/code]


Можно после этого добавить сразу обновление адреса с DHCP сервера
Код
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
   objNetCard.RenewDHCPLease()
Next

[/code]
Правильно заданный вопрос - это уже половина ответа.
Вернуться к началу
Ответить

Вернуться в Автоматизация процесса управления

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

Список форумов
Удалить cookies конференции