Серый форум — VBS: COM объект из DLL

Re: VBS: COM объект из DLL

null@example.com (Flasher) — Wed, 03 Aug 2016 12:30:05 +0000

DimkaAV
Set gMDUser = New MDUser - на VBS такой номер без объявленного класса возможен только для Regexp, если не ошибаюсь. Подробнее.
И в любом случае регистрация библиотеки MDUserCOM.dll в том или ином (псевдо) виде необходима.
В случае библиотеки нужно создавать экземпляр класса по Set/With CreateObject("ProgID"), не иначе.

Re: VBS: COM объект из DLL

null@example.com (TAOSoft) — Wed, 03 Aug 2016 09:05:10 +0000

А если так:


....
    Set oMDUser = CreateObject("MDUserCOM.MDUser")
    
    ' Load the dll
    If oMDUser.LoadUserDll() = True Then
        
        ' Get a handle to the user's record
        hUser = oMDUser.GetByEmail(sEmail)        
                
        ' Create an instance of MDUserInfo
        Set oMDUserInfo = CreateObject("MDUserCOM.MDUserInfo")
            
        ' Get the MDUserInfo object associated with the user handle
        oMDUser.GetUserInfo hUser, oMDUserInfo    
    
    End If
...

VBS: COM объект из DLL

null@example.com (DimkaAV) — Tue, 02 Aug 2016 10:35:36 +0000

Доброго времени суток.

Зайду из далека.
Имеется почтовый сервер MDaemon. В комплекте с ним, в документации, имеются примеры работы с сервер по средствам COM. У MDaemon имеется свой собственный COM-интерфейс. Пример сделан на VB (работа с пользователями, календарями, общими папками... ).

В проекте есть такае строка:

Reference=*\G{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}#1.0#0#..\..\..\..\..\..\..\MDaemon\App\MDUserCom.dll#MDUserCOM 1.0 Type Library

Global gMDUser As MDUser

И далее идет работа с MDUser.

Надо это переложить на скрипт VBS.

Делаю так
Set gMDUser = New MDUser
Получаю ошибку - класс не зарегистрирован.

Делаю так
Set MDUser = GetObject("C:\MDaemon\App\MDUserCOM.dll", "MDUser")
Получаю ошибку 800a01ad (Невозможно создание объекта контейнером ActiveX).

Собственно вопрос: как создать MDUser в простом VBS скрипте?