? Технология COM и Perl

Форум для программистов

? Технология COM и Perl

Сообщение FSA » Чт фев 20, 2003 5:12 am

Можно ли как-то использовать технологию COM в Perl программе?
Для чего мне это надо: нужно создать почтовый ящик (Microsoft Exchange) для уже существующего пользователя. Делать это надо на Perl, т.к. скрипт регистрации пользователя написан на нём.
Вот конкретный пример, которые мне надо реализовать на Perl:

<%@ LANGUAGE="VBScript" %>
<OBJECT RUNAT=Server ID=BOAdmin CLASSID="Clsid:E4F08F23-09BF-11D1-B97A-00AA000D9665"></OBJECT>

<SCRIPT RUNAT=Server LANGUAGE="VBScript">
sUserID = 'user'
sFullName = 'FIO'
Result = BOAdmin.AddMailBox(CStr(sUserID), CStr(sUserID), CStr(sFullName))
</SCRIPT>
"Скажи мне свой IP, и я скажу кто ты!"
Подпись: nslookup
FSA
Подполковник
 
Сообщений: 748
Зарегистрирован: Сб апр 20, 2002 8:38 pm
Откуда: Тавда, Россия.
Пункты репутации: 0

Сообщение FSA » Чт фев 20, 2003 8:07 am

Ну, вот! Так не дождавшись ответа сам кое-что наколупал. Кому интересно, смотрите

#!perl вообщем строка, которая в NT вообще не нужна
use Win32::OLE;

Win32::OLE::CreateObject('BOAdminServices.BOAdminServices.1', $BOadmin);
$user = 'user';
$desc = 'FIO
$BOadmin->AddMailBox($user,$user,$desc);

, где BOAdminServices.BOAdminServices.1 - раздел реестра, в котором расположен тот самый CLSID. Т.е. просто находим, где в реестре лежит этот самый CLSID по поиску и смотрим как называется приложение 'ProgID'. Вот его то и используем.

Надеюсь всё правильно сделал? Если есть ошибки, исправьте. Хотя вроде всё работает.
"Скажи мне свой IP, и я скажу кто ты!"
Подпись: nslookup
FSA
Подполковник
 
Сообщений: 748
Зарегистрирован: Сб апр 20, 2002 8:38 pm
Откуда: Тавда, Россия.
Пункты репутации: 0


Вернуться в Программирование

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10

cron