Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ADSI

Автор: qwerty=-=root 30.7.2004, 11:10

Вот назрела такая проблема.... пытаюсь создать виртуальный хост с помощью 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

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