Splash Site Admin
Зарегистрирован: 09.11.2007 Сообщения: 228
|
Добавлено: Пн Окт 27, 2008 9:24 am Заголовок сообщения: Скрипт для прописывания IP адреса, маски подсети и шлюза |
|
|
Этот скрипт прописывает всем сетевым интерфейсам компьютера заданные IP адрес, маску подсети и gateway:
Настройка домашней локальной сети
(Все(!) Ethernet-интерфейсы изменятся, как же инет от Воли не срубить?):
---
strComputer = "compname"
Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration " _
& "where IPEnabled=TRUE")
strIPAddress = Array("192.168.0.13")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic( _
strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(_
strGateway, strGatewaymetric)
Next
--- |
|