如何实现对IIS的控制？

Question

最近一帮根本不懂键盘和鼠标有什么区别的傻瓜打算用IIS建立一个Web服务器，于是找到我帮他们编一个可以傻瓜化建立IIS服务的程序。请问大家知不知道有什么API可以控制IIS设置的？目前找不到资料啊……高分，高分，分不够再加。

Answer 1

对这方面俺也不行
不过手头倒是有文章一篇用 ADSI 创建 IIS 的虚拟目录1、使用接口
procedure TForm3.BitBtn4Click(Sender: TObject);
var
  Disp: IDispatch;
begin
  Disp := IISNamespace1.GetObject('IIsWebService', 'localhost/w3svc');
  Disp := (Disp as IADsContainer).GetObject('IIsWebServer', '1');
  Disp := (Disp as IADsContainer).GetObject('IIsWebVirtualDir', 'Root');
  Disp := (Disp as IADsContainer).Create('IIsWebVirtualDir', 'DelphiADSITest');
  (Disp as IADs).Put('AccessRead', 'True');
  (Disp as IADs).Put('Path', 'c:\ADSITest');
  (Disp as IADs).SetInfo;
end;2、使用Variant(就是类似VB和ASP的方法)
procedure TForm2.BitBtn1Click(Sender: TObject);
var
  WebSite, WebServer, WebRoot, VDir: Variant;
begin
  WebSite := CreateOleObject('IISNamespace');
  WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
  WebServer := WebSite.GetObject('IIsWebServer', '1');
  WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
  VDir := WebRoot.Create('IIsWebVirtualDir', 'VariantTest');
  VDir.AccessRead := True;
  VDir.Path := 'C:\Test';
  VDir.SetInfo;
end;