Модифицировать файл автоматической настройки сети

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