VPF::ADSI - Форум программистов

qwerty=-=root

Дата 30.7.2004, 11:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 29.7.2004

Репутация: нет
Всего: 1

Вот назрела такая проблема.... пытаюсь создать виртуальный хост с помощью ADSI, создавать новых пользователей получается, а вот vhost никак...
может есть идеи???

Код


function GetObject(const name: string): IDispatch;
var
  Moniker: IMoniker;
  Eaten: integer;
  BindContext: IBindCtx;
  Dispatch: IDispatch;
begin
  OleCheck(CreateBindCtx(0, BindContext));   
  OleCheck(MkParseDisplayName(BindContext, PWideChar(WideString(name)), Eaten, Moniker)); 
  OleCheck(Moniker.BindToObject(BindContext, nil, IDispatch, Dispatch)); 
  Result := Dispatch;
end;

procedure btnVHostCreateClick(Sender: TObject);
var
  Comp: IADsContainer;
begin
  try
    Comp := GetObject('IIS://localhost/W3SVC/1/Root') as IADsContainer;
    Comp.Create('IIsWebVirtualDir', 'webname');
  except
    on E: EOleException do
    begin
      ShowMessage(E.message);
    end;
  end;
  VDir.Free;
end;

Все без ошибок, но никакого результата???
Может кто работал с этим???

qwerty=-=root

Дата 30.7.2004, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 29.7.2004

Репутация: нет
Всего: 1

Пасиб за внимание разобрался.... если кому надо могу выкинуть...
Сейчас разбираюсь со всеми параметрами

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »