Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод настроек DHCP сервера / 5 сообщений из 5, страница 1 из 1
01.04.2015, 15:29
    #38923958
xBOBeRx
xBOBeRx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод настроек DHCP сервера
Доброго времени суток.
Подскажите пожалуйста можно ли как то получить настройки DHCP сервера при помощи VBS.
Надо вывести на экран настройки DHCP сервера просто для просмотра. Точнее настройки одной скопы (пул адресов, DNSы, IP сервера, количество занятых и свободных IP из пула). Чувствую что это можно сделать через Win32_NetworkAdapterConfiguration, но не пойму как. Помогите пожалуйста, подскажите куда копать.
Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2015, 16:31
    #38924063
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод настроек DHCP сервера
xBOBeRxЧувствую что это можно сделать через Win32_NetworkAdapterConfigurationНельзя. Само название как бы говорит нам, что это конфигурация сетевого адаптера, которая имеет отношение к конфигурации dhcp-сервера чуть менее чем никакое.

xBOBeRxПомогите пожалуйста, подскажите куда копать. https://msdn.microsoft.com/en-us/library/hh832732(v=vs.85).aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2015, 16:46
    #38924081
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод настроек DHCP сервера
DHCP-сервис и NetworkAdapter никак не связаны.

Попробуй получить данные через SNMP (есссно на сервере должен быть поднят ответчик), типа

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
dhcpScope = "1.3.6.1.4.1.311.1.3.2"
scopeTable = "1.3.6.1.4.1.311.1.3.2.1"
scopeTableEntry = "1.3.6.1.4.1.311.1.3.2.1.1"
subnetAdd = "1.3.6.1.4.1.311.1.3.2.1.1.1"
noAddInUse = "1.3.6.1.4.1.311.1.3.2.1.1.2"
noAddFree = "1.3.6.1.4.1.311.1.3.2.1.1.3"
noPendingOffers = "1.3.6.1.4.1.311.1.3.2.1.1.4"

strDevice = "10.0.0.1"
strCommunity = "public"

Set objSNMP = CreateObject("OlePrn.OleSNMP")
objSNMP.Open strDevice, strCommunity, 2, 1000
WScript.echo objSNMP.Get(dhcpScope)
WScript.echo objSNMP.Get(scopeTable)
WScript.echo objSNMP.Get(scopeTableEntry)
WScript.echo objSNMP.Get(subnetAdd)
WScript.echo objSNMP.Get(noAddInUse)
WScript.echo objSNMP.Get(noAddFree)
WScript.echo objSNMP.Get(noPendingOffers)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2015, 16:48
    #38924083
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод настроек DHCP сервера
Хотя через DhcpServerPsProvider, наверное, всё же попроще будет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2015, 11:44
    #38924754
xBOBeRx
xBOBeRx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод настроек DHCP сервера
Я прошу прощения, а нельзя ли немного по подробнее как через DhcpServerPsProvider это реализовать, я недавно начал изучать VBS и не все еще понимаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод настроек DHCP сервера / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 150ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155990]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 11ms
total:  150ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]