APIGetServerConfig

Универсальная функция - получение различных данных с сервера.

ServData = APIGetServerConfig(Request, Param2, Param3)

Аргументы

Request

Числовое значение задающее тип запроса:

0	Состояние аутентификации в сессии DCOM*.
1	Чтение блока информации о сервере в формате XML, элемент ServerInfo.
2	Чтение списка системных событий в формате XML, элемент ServerLog.
4	Чтение блока данных состояния сервера, формат XML, элемент ServerState.
5	Чтение списка интерфейсов, формат XML, элемент IPIntfList.
17	Чтение блока данных конфигурации сервера, формат XML, элемент MainConfig.
20	Чтение блока данных конфигурации прокси сервера, формат XML, элемент ProxyConfig.
21	Чтение списка сессий прокси сервера и SOCKS, формат XML, элемент ProxySessions.

Param2, Param3

Дополнительные опциональные параметры unassigned.

Возвращаемое значение

*Если запрашивается состояние аутентификации в сессии DCOM (Request = 0) - функция возвращает число:

0	Нет.
1	По логину - имя и пароль заданы в пользователях программы.
5	Windows NTLM - логин Windows разрешен в пользователях программы.
8	Авторизация произведена через веб сервер, передачей функции APILogon идентификатора сессии веб сервера.
9	Аутентификация общим паролем через функцию APILogon.

Все остальные значения могут означать различные ошибки аутентификации.

Также данные могут возвращаться в XML формате. Формат этих данных описан в файле XML схемы schema.xsd.

Пример использования

Set Srv = CreateObject("TrafInsp.TrafInspAdmin")

APIPass = "123456" 'Пароль для доступа через API

Srv.APILogon(APIPass)

Set Dom = WScript.CreateObject("Msxml2.DOMDocument.4.0")

'Считываем список интерфейсов

Reque = 5

Set Dom = WScript.CreateObject("Msxml2.DOMDocument.4.0")

Dom.LoadXML Srv.APIGetServerConfig(Reque, unassigned, unassigned)

Dom.Save "servconf" & Reque & ".xml"