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

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

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("192.168.0.1")  

DNS = Array("192.168.0.1")      

RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask) 

RetVal = AdapterConfiguration.SetGateways(Gateway) 

RetVal = AdapterConfiguration.SetDnsServerSearchOrder(DNS) 

End If 

Next 

Next

WScript.Echo "Настройка сетевого подключения выполнена!"
antiquariat-1829823_960_720[1]

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *