Atom Лента - Форум КриптоПро - Тема:Получение типа лицензии и срока действия программным путём - 10Форум КриптоПро - Atom Лентаurn:https:--www-cryptopro-ru:AtomLenta:ForumKriptoPro:Tema:Poluchenietipalicenziiisrokadejjstvijaprogrammnymputjom-10:1Copyright 2024 Форум КриптоПро2024-03-28T17:08:57Zhttps://www.cryptopro.ru/forum2/Images/YAFLogo.pngForum Adminhttps://www.cryptopro.ruforum@cryptopro.ruАндрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *Андрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *PlutoVYShttps://www.cryptopro.ru/forum2/default.aspx?g=profile&u=53139&name=PlutoVYSАндрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *PlutoVYShttps://www.cryptopro.ru/forum2/default.aspx?g=profile&u=53139&name=PlutoVYSАндрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *PlutoVYShttps://www.cryptopro.ru/forum2/default.aspx?g=profile&u=53139&name=PlutoVYSАндрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *PlutoVYShttps://www.cryptopro.ru/forum2/default.aspx?g=profile&u=53139&name=PlutoVYSАндрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *PlutoVYShttps://www.cryptopro.ru/forum2/default.aspx?g=profile&u=53139&name=PlutoVYSYetAnotherForum.NETurn:https:--www-cryptopro-ru:ftPosts:st1:meid115570:1Получение типа лицензии и срока действия программным путём<table class="content postContainer_Alt" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: PlutoVYS <a href="/forum2/default.aspx?g=posts&m=115566#post115566"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115565#post115565"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>выдаются нули (0:00:00)</div></div><br /><br />Да, если исключения не было и выдалось так - то значит это бессрочная лицензия.<br /></div></div><br /><br />Да это понятно, на серверах-то как быть? :-)<br />Я на неделе ради интереса подниму какую-нибудь другую серверную ОС (Win 2003 например) и посмотрю как там это будет происходить. Хотя с другой стороны, сама-то Крипто Про же нормально пишет, что лицензия бессрочная. Вот и думаю как это определяет сама Крипто Про.<br />Я тогда когда поставлю другую ОС, то тут отпишусь по результату.</div></div><br /><br />Без разницы какой тип ОС, у меня на серверной выдаёт как и ожидается. Поднимать нужно актуальные ОС и версии СКЗИ. </td></tr></table>2020-05-26T12:22:57+03:002020-05-26T12:22:57+03:00Андрей *<table class="content postContainer_Alt" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: PlutoVYS <a href="/forum2/default.aspx?g=posts&m=115566#post115566"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115565#post115565"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>выдаются нули (0:00:00)</div></div><br /><br />Да, если исключения не было и выдалось так - то значит это бессрочная лицензия.<br /></div></div><br /><br />Да это понятно, на серверах-то как быть? :-)<br />Я на неделе ради интереса подниму какую-нибудь другую серверную ОС (Win 2003 например) и посмотрю как там это будет происходить. Хотя с другой стороны, сама-то Крипто Про же нормально пишет, что лицензия бессрочная. Вот и думаю как это определяет сама Крипто Про.<br />Я тогда когда поставлю другую ОС, то тут отпишусь по результату.</div></div><br /><br />Без разницы какой тип ОС, у меня на серверной выдаёт как и ожидается. Поднимать нужно актуальные ОС и версии СКЗИ. </td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115566:1Получение типа лицензии и срока действия программным путём<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115565#post115565"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>выдаются нули (0:00:00)</div></div><br /><br />Да, если исключения не было и выдалось так - то значит это бессрочная лицензия.<br /></div></div><br /><br />Да это понятно, на серверах-то как быть? :-)<br />Я на неделе ради интереса подниму какую-нибудь другую серверную ОС (Win 2003 например) и посмотрю как там это будет происходить. Хотя с другой стороны, сама-то Крипто Про же нормально пишет, что лицензия бессрочная. Вот и думаю как это определяет сама Крипто Про.<br />Я тогда когда поставлю другую ОС, то тут отпишусь по результату.</td></tr></table>2020-05-26T12:02:31+03:002020-05-26T12:02:31+03:00PlutoVYS<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115565#post115565"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>выдаются нули (0:00:00)</div></div><br /><br />Да, если исключения не было и выдалось так - то значит это бессрочная лицензия.<br /></div></div><br /><br />Да это понятно, на серверах-то как быть? :-)<br />Я на неделе ради интереса подниму какую-нибудь другую серверную ОС (Win 2003 например) и посмотрю как там это будет происходить. Хотя с другой стороны, сама-то Крипто Про же нормально пишет, что лицензия бессрочная. Вот и думаю как это определяет сама Крипто Про.<br />Я тогда когда поставлю другую ОС, то тут отпишусь по результату.</td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115565:1Получение типа лицензии и срока действия программным путём<table class="content postContainer_Alt" width="100%"><tr><td><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>выдаются нули (0:00:00)</div></div><br /><br />Да, если исключения не было и выдалось так - то значит это бессрочная лицензия.<br /></td></tr></table>2020-05-26T11:58:13+03:002020-05-26T11:58:13+03:00Андрей *<table class="content postContainer_Alt" width="100%"><tr><td><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>выдаются нули (0:00:00)</div></div><br /><br />Да, если исключения не было и выдалось так - то значит это бессрочная лицензия.<br /></td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115562:1Получение типа лицензии и срока действия программным путём<br /><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115546#post115546"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="code"><strong>Код:</strong><div class="innercode"><pre class="line-numbers"><code class="language-vb">
On Error Resume Next
Err.Clear
set obj = CreateObject("CPCSPLicense.CPCSPLicense")
CPro_LED = obj.GetExpireDate("{407E5BA7-6406-40BF-A4DC-3654B8F584C1}")
If Err.Number = 0 Then
msgbox (CPro_LED)
End If
If Err.Number <> 0 Then
msgbox ( "Error: " & Err.Number & " (Hex): " & Hex(Err.Number) )
Err.Clear
End If
On Error Goto 0
</code></pre>
</div></div><br /></div></div><br />2020-05-26T11:48:27+03:002020-05-26T11:48:27+03:00PlutoVYS<br /><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115546#post115546"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote><div class="code"><strong>Код:</strong><div class="innercode"><pre class="line-numbers"><code class="language-vb">
On Error Resume Next
Err.Clear
set obj = CreateObject("CPCSPLicense.CPCSPLicense")
CPro_LED = obj.GetExpireDate("{407E5BA7-6406-40BF-A4DC-3654B8F584C1}")
If Err.Number = 0 Then
msgbox (CPro_LED)
End If
If Err.Number <> 0 Then
msgbox ( "Error: " & Err.Number & " (Hex): " & Hex(Err.Number) )
Err.Clear
End If
On Error Goto 0
</code></pre>
</div></div><br /></div></div><br />urn:https:--www-cryptopro-ru:ftPosts:st1:meid115546:1Получение типа лицензии и срока действия программным путём<table class="content postContainer_Alt" width="100%"><tr><td><div class="code"><strong>Код:</strong><div class="innercode"><pre class="line-numbers"><code class="language-vb">
On Error Resume Next
Err.Clear
set obj = CreateObject("CPCSPLicense.CPCSPLicense")
CPro_LED = obj.GetExpireDate("{407E5BA7-6406-40BF-A4DC-3654B8F584C1}")
If Err.Number = 0 Then
msgbox (CPro_LED)
End If
If Err.Number <> 0 Then
msgbox ( "Error: " & Err.Number & " (Hex): " & Hex(Err.Number) )
Err.Clear
End If
On Error Goto 0
</code></pre>
</div></div><br /></td></tr></table>2020-05-25T22:23:35+03:002020-05-25T22:23:35+03:00Андрей *<table class="content postContainer_Alt" width="100%"><tr><td><div class="code"><strong>Код:</strong><div class="innercode"><pre class="line-numbers"><code class="language-vb">
On Error Resume Next
Err.Clear
set obj = CreateObject("CPCSPLicense.CPCSPLicense")
CPro_LED = obj.GetExpireDate("{407E5BA7-6406-40BF-A4DC-3654B8F584C1}")
If Err.Number = 0 Then
msgbox (CPro_LED)
End If
If Err.Number <> 0 Then
msgbox ( "Error: " & Err.Number & " (Hex): " & Hex(Err.Number) )
Err.Clear
End If
On Error Goto 0
</code></pre>
</div></div><br /></td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115542:1Получение типа лицензии и срока действия программным путём<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115539#post115539"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote>На vbs пример выше?<br />И при генерации исключения, оно не обрабатывается и переменная содержит разное значение, так ? </div></div><br /><br />Пример да, на vbs.<br />Про исключение ничего сказать не могу, но переменная действительно каждый раз имеет разное значение.<br />Дабы исключить вообще все лишние факторы, сделал скрипт вообще без переменных, ну и естественно картина не изменилась.<br /><br />Вот сделал видео результата работы на серверной ОС:<br /><a rel="nofollow" href="https://youtu.be/BL0wsR4cEZc" title="https://youtu.be/BL0wsR4cEZc">https://youtu.be/BL0wsR4cEZc</a><br /></td></tr></table>2020-05-25T20:19:33+03:002020-05-25T20:19:33+03:00PlutoVYS<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115539#post115539"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote>На vbs пример выше?<br />И при генерации исключения, оно не обрабатывается и переменная содержит разное значение, так ? </div></div><br /><br />Пример да, на vbs.<br />Про исключение ничего сказать не могу, но переменная действительно каждый раз имеет разное значение.<br />Дабы исключить вообще все лишние факторы, сделал скрипт вообще без переменных, ну и естественно картина не изменилась.<br /><br />Вот сделал видео результата работы на серверной ОС:<br /><a rel="nofollow" href="https://youtu.be/BL0wsR4cEZc" title="https://youtu.be/BL0wsR4cEZc">https://youtu.be/BL0wsR4cEZc</a><br /></td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115539:1Получение типа лицензии и срока действия программным путём<table class="content postContainer_Alt" width="100%"><tr><td>На vbs пример выше?<br />И при генерации исключения, оно не обрабатывается и переменная содержит разное значение, так ? </td></tr></table>2020-05-25T19:06:39+03:002020-05-25T19:06:39+03:00Андрей *<table class="content postContainer_Alt" width="100%"><tr><td>На vbs пример выше?<br />И при генерации исключения, оно не обрабатывается и переменная содержит разное значение, так ? </td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115531:1Получение типа лицензии и срока действия программным путём<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115513#post115513"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote>Дистрибутив устанавливается через msiexec, у каждой версии (4,5) свой guid продукта и страница с описанием параметров установки, также указан и guid продукта (в примере - команда для удаления csp) :<br /><a rel="nofollow" href="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782" title="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782">https://www.cryptopro.ru....aspx?g=posts&t=7782</a><br /><br /></div></div><br />Андрей, спасибо за информацию, возможно она тоже пригодится.<br />Хотелось бы ещё выяснить, что возвращает в ответ метод 'GetExpireDate'.<br />Как я понял, по логике вещей, если лицензия бессрочная, то в ответ выдаётся "0:00:00". Если же лицензия временная, то получаем "ДД.ММ.ГГГГ ЧЧ:ММ:СС".<br />По крайней мере на рабочих станциях у меня возврат получается именно такой.<br />Пробовал на Крипто Про 4.0.9963 (Windows 10 Корпоративная) вот такими строчками:<br /><br /><div class="code"><strong>Код:</strong><div class="innercode"><pre class="line-numbers"><code class="language-vb">set obj = CreateObject("CPCSPLicense.CPCSPLicense")
CPro_LED = obj.GetExpireDate("{407E5BA7-6406-40BF-A4DC-3654B8F584C1}")
msgbox (CPro_LED)
</code></pre>
</div></div><br /><br />Стал пробовать на серверной ОС (Крипто Про 4.0.9842 (Windows Server 2012 R2)) и в ответ получаю всё что угодно, кроме того, что надо, от 'Данные настройки продукта повреждены' и до абсолютно произвольной даты и времени. Т.е. 10 раз запустишь и 10 разных значений получишь, совпасть могут только 'Данные настройки продукта повреждены'.<br /><br />Есть какие-то комментарии по этому моменту?</td></tr></table>2020-05-25T12:12:29+03:002020-05-25T12:12:29+03:00PlutoVYS<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115513#post115513"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote>Дистрибутив устанавливается через msiexec, у каждой версии (4,5) свой guid продукта и страница с описанием параметров установки, также указан и guid продукта (в примере - команда для удаления csp) :<br /><a rel="nofollow" href="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782" title="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782">https://www.cryptopro.ru....aspx?g=posts&t=7782</a><br /><br /></div></div><br />Андрей, спасибо за информацию, возможно она тоже пригодится.<br />Хотелось бы ещё выяснить, что возвращает в ответ метод 'GetExpireDate'.<br />Как я понял, по логике вещей, если лицензия бессрочная, то в ответ выдаётся "0:00:00". Если же лицензия временная, то получаем "ДД.ММ.ГГГГ ЧЧ:ММ:СС".<br />По крайней мере на рабочих станциях у меня возврат получается именно такой.<br />Пробовал на Крипто Про 4.0.9963 (Windows 10 Корпоративная) вот такими строчками:<br /><br /><div class="code"><strong>Код:</strong><div class="innercode"><pre class="line-numbers"><code class="language-vb">set obj = CreateObject("CPCSPLicense.CPCSPLicense")
CPro_LED = obj.GetExpireDate("{407E5BA7-6406-40BF-A4DC-3654B8F584C1}")
msgbox (CPro_LED)
</code></pre>
</div></div><br /><br />Стал пробовать на серверной ОС (Крипто Про 4.0.9842 (Windows Server 2012 R2)) и в ответ получаю всё что угодно, кроме того, что надо, от 'Данные настройки продукта повреждены' и до абсолютно произвольной даты и времени. Т.е. 10 раз запустишь и 10 разных значений получишь, совпасть могут только 'Данные настройки продукта повреждены'.<br /><br />Есть какие-то комментарии по этому моменту?</td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115513:1Получение типа лицензии и срока действия программным путём<table class="content postContainer_Alt" width="100%"><tr><td>Дистрибутив устанавливается через msiexec, у каждой версии (4,5) свой guid продукта и страница с описанием параметров установки, также указан и guid продукта (в примере - команда для удаления csp) :<br /><a rel="nofollow" href="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782" title="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782">https://www.cryptopro.ru....aspx?g=posts&t=7782</a><br /><br /></td></tr></table>2020-05-23T09:07:48+03:002020-05-23T09:07:48+03:00Андрей *<table class="content postContainer_Alt" width="100%"><tr><td>Дистрибутив устанавливается через msiexec, у каждой версии (4,5) свой guid продукта и страница с описанием параметров установки, также указан и guid продукта (в примере - команда для удаления csp) :<br /><a rel="nofollow" href="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782" title="https://www.cryptopro.ru/forum2/default.aspx?g=posts&t=7782">https://www.cryptopro.ru....aspx?g=posts&t=7782</a><br /><br /></td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid115512:1Получение типа лицензии и срока действия программным путём<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115511#post115511"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote>Здравствуйте.<br /><br />А если указать GUID, тоже ошибка?<br /><br /><a rel="nofollow" href="https://www.cryptopro.ru/forum2/default.aspx?g=posts&m=115327#post115327" title="https://www.cryptopro.ru/forum2/default.aspx?g=posts&m=115327#post115327">https://www.cryptopro.ru...&m=115327#post115327</a><br /></div></div><br /><br />А вот если указать (uuid для 4-ки взял по предложенной Вами ссылке),то всё заработало.<br />СПАСИБО ОГРОМНОЕ!<br />А-то мне тут в одном УЦ заявили 'точного механизма определения срока действия лицензии у КриптоПро CSP нет. Об этом нам сами разработчики КриптоПро сказали'. Ну вот я и усомнился в том, что они могли такое сказать и решил сам проверить и оказалось, что есть точный механизм :-)<br />Осталось только понять, где эти uuid можно взять. В реестре есть буквально 3 места, где они упоминаются и опять же в каких-то разделах с uuid, например вот:<br /><br />HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties<br /><br />А что это за {7AB5E7046046FB044ACD63458B5F481C} - да бог его знает...<br />Получается, что всё таки нет точного механизма и нельзя однозначно для любой версии сказать версию берёшь отсюда, uuid продукта смотришь тут и по нему получаешь инфу по лицензии? Ну или просто принимаешь эти uuid как факт, полученный от разработчиков и просто при выходе новой версии добавляешь в обработку новый.</td></tr></table>2020-05-23T08:39:35+03:002020-05-23T08:39:35+03:00PlutoVYS<table class="content postContainer" width="100%"><tr><td><div class="quote"><span class="quotetitle">Автор: Андрей * <a href="/forum2/default.aspx?g=posts&m=115511#post115511"><img src="/forum2/Themes/soclean/icon_latest_reply.gif" title="Перейти к цитате" alt="Перейти к цитате" /></a></span><blockquote>Здравствуйте.<br /><br />А если указать GUID, тоже ошибка?<br /><br /><a rel="nofollow" href="https://www.cryptopro.ru/forum2/default.aspx?g=posts&m=115327#post115327" title="https://www.cryptopro.ru/forum2/default.aspx?g=posts&m=115327#post115327">https://www.cryptopro.ru...&m=115327#post115327</a><br /></div></div><br /><br />А вот если указать (uuid для 4-ки взял по предложенной Вами ссылке),то всё заработало.<br />СПАСИБО ОГРОМНОЕ!<br />А-то мне тут в одном УЦ заявили 'точного механизма определения срока действия лицензии у КриптоПро CSP нет. Об этом нам сами разработчики КриптоПро сказали'. Ну вот я и усомнился в том, что они могли такое сказать и решил сам проверить и оказалось, что есть точный механизм :-)<br />Осталось только понять, где эти uuid можно взять. В реестре есть буквально 3 места, где они упоминаются и опять же в каких-то разделах с uuid, например вот:<br /><br />HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\7AB5E7046046FB044ACD63458B5F481C\InstallProperties<br /><br />А что это за {7AB5E7046046FB044ACD63458B5F481C} - да бог его знает...<br />Получается, что всё таки нет точного механизма и нельзя однозначно для любой версии сказать версию берёшь отсюда, uuid продукта смотришь тут и по нему получаешь инфу по лицензии? Ну или просто принимаешь эти uuid как факт, полученный от разработчиков и просто при выходе новой версии добавляешь в обработку новый.</td></tr></table>