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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

Hector

Misanthrope

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

Конфигурация

Профиль | Отправить PM | Цитировать

Нужно написать файл для автоматической настройки сетевых параметров (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!
Нет границ, есть только препятствия