Объект ТИП_СОМ

14.01.2017 10:58

пользователь

Регистрация: 17.06.2015

VBS:
Set EVatService = CreateObject("EInvVatService.Connector")
res = EVatService.Login(connectStr, loginFlags)
if res = 0 then
WScript.Echo "Авторизация успешна"
else
WScript.Echo "Ошибка авторизации: " & EVatService.LastError & " (Код 0x" & Hex(res) & ")"
WScript.Quit
end if

Прекрасно работает.

ИБ 8.815:

СОЗДАТЬ(АБ,ТИП_COM);
клас="EInvVatService.Connector";
АБ.СОЗДАТЬ_ЭКЗЕМПЛЯР("","",клас,"USEDOC");
пар1="UNP=191423673;PASSWORD_KEY=25031918"; пар2=64;
Ок=АБ.ВЫЗВАТЬ("Login"(пар1,пар2));

72 просмотра