Криптография Получение срока действия лицензии КриптоПро CSP

[mrsoros]

Приветствую.
Задача: получить срока действия лицензии КриптоПро CSP 4.0.9944 с помощью библиотеки cplicmgmt.dll.
На просторах нашел
Dim obj: Set obj = CreateObject("CPCSPLicense.CPCSPLicense") MsgBox obj.GetExpireDate("") & " " & obj.GetType()
Пишу

Local $obj, $oObjects
$obj = ObjCreate("CPCSPLicense.CPCSPLicense")
If Not @error Then
    MsgBox(0, "CSP", $obj.GetExpireDate(''))
Else
    MsgBox(4096, "Тест ObjCreat", "Не удалось открыть объект. Код ошибки: " & Hex(@error, 8))
EndIf

Ошибка >>>
MsgBox(0, "GUI", $obj^ ERROR

Прошу помочь разобраться.