Серый форум — VBS: Вывод настроек DHCP сервера

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

null@example.com (BeS Yara) — Mon, 13 Apr 2015 13:45:01 +0000

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

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 .

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

null@example.com (BOBeR) — Thu, 02 Apr 2015 06:14:03 +0000

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

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

null@example.com (Flasher) — Wed, 01 Apr 2015 15:12:13 +0000

А что ещё такого можно вытянуть из Win32_NetworkAdapterConfiguration?

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

null@example.com (BOBeR) — Wed, 01 Apr 2015 15:07:42 +0000

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

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

null@example.com (Flasher) — Wed, 01 Apr 2015 13:54:17 +0000

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

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

null@example.com (BOBeR) — Wed, 01 Apr 2015 12:26:05 +0000

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

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

null@example.com (BOBeR) — Fri, 27 Mar 2015 14:53:49 +0000

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