VBS/WSH/JS - Модифицировать файл автоматической настройки сети

VBS/WSH/JS - Модифицировать файл автоматической настройки сети

Hector

Misanthrope

Сообщения: 474
Благодарности: 38

Нужно написать файл для автоматической настройки сетевых параметров (ip, dns, рабочая группа и т. д). пошурудив по форуму нашел такое решение

Код:

strComputer = "."                  ' компьютер
strIP = Array("192.168.1.2")       ' IP адрес
strMask = Array("255.255.255.0")   ' маска подсети
strGateway = Array("192.168.1.1")  ' шлюз по умолчанию
strDNS = Array("")                 ' список DNS серверов

' Подключение к WMI компьютера
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Получение коллекции конфигураций сетевых TCP/IP адаптеров
Set colCON = objWMI.ExecQuery("Select * " & _
                            " From Win32_NetworkAdapterConfiguration " & _
                            " Where IPENabled=TRUE") 
For Each objCON In colCON
  objCON.EnableStatic strIP,strMask     ' установка адреса/маски
  objCON.SetGateways strGateway         ' установка шлюза
  objCON.SetDNSServerSearchOrder strDNS ' установка DNS

  Exit For
Next

но нужно еще изменить название рабочей группы, и последнюю цифру ip желательно генерировать автоматически. кроме того, желательно в конце выводить сообщение об окончании работы
p. s. можно ли подобным образом настроить и vpn?

-------
Information must be free!
Нет границ, есть только препятствия