1 Тема от BOBeR (изменено: BOBeR, 2015-03-27 18:54:39)

  • BOBeR
  • Участник
  • Неактивен

Тема: VBS: Вывод настроек DHCP сервера

Доброго времени суток.
Я начинающий кодер на VBS. Подскажите пожалуйста можно ли как то получить настройки DHCP сервера при помощи VBS.
Надо вывести на экран настройки DHCP сервера просто для просмотра. Точнее настройки одной скопы (пул адресов, DNSы, IP сервера, количество занятых и свободных IP из пула). Чувствую что это можно сделать через Win32_NetworkAdapterConfiguration, но не пойму как. Помогите пожалуйста, подскажите куда копать.
Заранее спасибо.

2 Ответ от BOBeR

  • BOBeR
  • Участник
  • Неактивен

Re: VBS: Вывод настроек DHCP сервера

Мда, не понятный форум. Второй раз обращаюсь за помощью по VBS и второй раз куча просмотров моего поста и ниодного ответа.

3 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Re: VBS: Вывод настроек DHCP сервера

BOBeR, на вскидку:

For Each Item in GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecQuery("Select * from Win32_NetworkAdapterConfiguration where DHCPEnabled=True AND IpEnabled=True")
  WSCript.Echo "DHCP Server: " & Item.DHCPServer & vbCr &_
  "DHCP Lease Expires: " & Item.DHCPLeaseExpires & vbCr &_
  "DHCP Lease Obtained: " & Item.DHCPLeaseObtained & vbCr &_
  "IP Address: " & Join(Item.IPAddress, vbCr) & vbCr &_
  "IP SubNet: " & Join(Item.IPSubNet, vbCr) & vbCr &_
  "Default IP Gateway: " & Join(Item.DefaultIPGateway, vbCr) & vbCr &_
  "DNS Domain Suffix Search Order: " & Join(Item.DNSDomainSuffixSearchOrder, vbCr) & vbCr &_
  "DNS Server Search Order: " & Join(Item.DNSServerSearchOrder, vbCr) & vbCr &_
  "Gateway Cost Metric: " & Join(Item.GatewayCostMetric, vbCr) & vbCr &_
  "IP Sec Permit IP Protocols: " & Join(Item.IPSecPermitIPProtocols, vbCr) & vbCr &_
  "IP Sec Permit TCP Ports: " & Join(Item.IPSecPermitTCPPorts, vbCr) & vbCr &_
  "IP Sec Permit UDP Ports: " & Join(Item.IPSecPermitUDPPorts, vbCr)
Next

4 Ответ от BOBeR

  • BOBeR
  • Участник
  • Неактивен

Re: VBS: Вывод настроек DHCP сервера

Flasher Спасибо за попытку помочь, но это не то. Это информация о сетевых настройках локальной машины, а мне необходимо получить полную информацию о DHCP сервере настроенном на этой машине.

5 Ответ от Flasher (изменено: Flasher, 2015-04-01 19:13:09)

  • Flasher
  • Заблокирован
  • Неактивен

Re: VBS: Вывод настроек DHCP сервера

А что ещё такого можно вытянуть из Win32_NetworkAdapterConfiguration? http://smiles.kolobok.us/mini/pardon_mini.gif

6 Ответ от BOBeR

  • BOBeR
  • Участник
  • Неактивен

Re: VBS: Вывод настроек DHCP сервера

Я же написал что я начинающий и по этому ошибся надо использовать не Win32_NetworkAdapterConfiguration, а DhcpServerPSProvider Provider

7 Ответ от BeS Yara

  • BeS Yara
  • Разработчик
  • Неактивен

Re: VBS: Вывод настроек DHCP сервера

Приветствую.

BOBeR пишет:

Мда, не понятный форум. Второй раз обращаюсь за помощью по VBS и второй раз куча просмотров моего поста и ни одного ответа.

Всё просто - задача у вас специфическая, заглянуть интересно, но участвовать в постройке велосипеда желающих видимо мало .
Дело в том, что эта задача решается штатно подручными средствами(да просят меня за некоторый оффтоп). Например:


C:\>netsh dhcp server scope 10.103.4.0 show iprange

Контекст текущей области изменен на область 10.103.4.0.

=============================================================
 Начальный адрес   -  Конечный адрес   -      Тип адреса
=============================================================
   10.103.4.10     -   10.103.4.200    -  DHCP ONLY

Число IP-диапазонов: 1 в области: 10.103.4.0.

Команда успешно завершена.
C:\>netsh dhcp server scope 10.103.4.0 show excluderange
Контекст текущей области изменен на область 10.103.4.0.

=======================================
 Начальный адрес   -    Конечный адрес
=======================================
   10.103.4.10     -   10.103.4.30
   10.103.4.32     -   10.103.4.99

Число исключенных диапазонов: 2 в области: 10.103.4.0.

Команда успешно завершена.

Тем же netsh можно экспортировать/импортировать настройки DHCP сервера.
P.S. если очень хочется задействовать VBS, то можно парсить вывод netsh .