adm_alexus (adm_alexus) wrote,
adm_alexus
adm_alexus

Category:

Смена шлюза и DNS скриптом

Запись опубликована Бложек Alexus'a. Вы можете оставить комментарии здесь или тут.

Сейчас на работе возникла задача сменить на всех машинах в настройках сетевого подключения адрес шлюза и DNS-сервера.

Т.к. сеть одноранговая, то ни о каком Active Directory, logon-скриптах и т.д. речь не идет.

Поэтому выходим из положения следующим образом:

1. Открываем блокнот.

2. Вставляем в него следующий текст:

Option Explicit
Dim NetworkAdapter, AdapterConfiguration 'Objects
Dim IPAddress, SubnetMask, Gateway, DNS, DNS1 'String Arrays
Dim RetVal 'Integers 

For Each NetworkAdapter In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter") 

For Each AdapterConfiguration In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration") 

If UCase(AdapterConfiguration.ServiceName) = UCase(NetworkAdapter.ServiceName) Then 

Gateway = Array("Здесь пишем требуемый адрес шлюза.")  

DNS = Array("Здесь пишем требуемый адрес DNS.")      

RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask) 

RetVal = AdapterConfiguration.SetGateways(Gateway) 

RetVal = AdapterConfiguration.SetDnsServerSearchOrder(DNS) 

End If 

Next 

Next

WScript.Echo "Настройка сетевого подключения выполнена!"

3. Сохраняем все это в файлик с расширением *.vbs.

4. Копируем файл в сетевую шару и просим всех сотрудников запустить на компьютере этот файл.

5. Profit!

Единственная проблема заключается в том, что в таком виде скрипт меняет настройки ВСЕХ(!) адаптеров, но зная немного VBScript это легко исправить.

Пользуйтесь, вдруг понадобится.

Tags: windows, техническое
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 6 comments