Delphi中用Adsi創建IIS虛擬目錄

　　先引入類型庫(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlb新建一個單元，聲明。
unit ActiveDs;

interface

　function ADsGetObject(const PathName: WideString; const GUID: 

TGUID; out I: IUnknown): HRESULT; stdcall;

implementation

　function ADsGetObject; 　　external ’activeds.dll’ name ’ADsGetObject’;

end. 

方法一(參照C++)、

var

　I: IADsContainer;

　ADs: IADs;

begin

　if ADsGetObject(’IIS://localhost/w3svc’, IID_IADsContainer, IUnknown(I)) = S_Ok then

　begin

　　ADs := IADs(I.GetObject(’IIsWebServer’, ’1’));

　　ShowMessage(ADs.ADsPath);

　　if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then

　　begin

　　　ADs := IADs(I.GetObject(’IIsWebVirtualDir’, ’Root’));

　　　ShowMessage(ADs.ADsPath);

　　　if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then

　　　begin

　　　　ADs := IADs(I.Create(’IIsWebVirtualDir’, ’DelphiTest’));

　　　　ADs.Put(’AccessRead’, ’True’);

　　　　ADs.Put(’Path’, ’c:Temp’);

　　　　ADs.SetInfo;

　　　end;

　　end;