Синтаксис:
function GetSystemInfo: WideString;
Возвращаемое значение:
Строка, содержащая информацию о системе и о текущем пользователе.
Описание:
Примечание
Функция оставлена для совместимости с интеграцией c OpenOffice. Для получения информации о системе DIRECTUM рекомендуется использовать функцию GetSystemInfo2().
Функция возвращает информацию о системе:
• | Code – код системы; |
• | InstallationID – ИД установки системы; |
• | CurrentUser – группа свойств текущего пользователя. Включает в себя элемент HasCertificatesForSigning – наличие сертификатов для подписания документов. |
Функция возвращает информацию о системе в формате:
<SystemInfo>
<!—- Свойства системы. -->
<Name1>Value1</Name1>
…
<!—- Группа свойств. -->
<PropertyGroup1>
<!—- Свойства системы, относящиеся к группе. -->
<Name1>Value1<Name1>
…
</PropertyGroup1>
…
</SystemInfo>
Рекомендуется использовать функцию для проверки наличия у текущего пользователя хотя бы одного сертификата для подписания документов.
Пример:
' Проверить наличие сертификата у пользователя.
Set XML = CreateObject("MSXML.DOMDocument")
Call XML.loadXML(IntLib.GetSystemInfo)
UserCanSign = XML.getElementsByTagName( _
"HasCertificatesForSigning").nextNode.nodeValue
If UserCanSign = "Yes" Then
…
End If
' Отобразить информацию о системе.
Call MsgBox(IntLib.GetSystemInfo)
© Компания DIRECTUM, 2018 | Сообщество пользователей DIRECTUM |