请问如何在程序中设置IIS

Question

想用Delphi做一个ASP网站的打包程序，不知如何在安装程序中为IIS增加一个虚拟目录，设置权限和默认首页等。
有高手解答后高分相送!

Answer 1

要有权限功能，
用ADSI像普通的用DELPHI写ASP的程序一样的做，

Answer 2

http://expert.csdn.net/Expert/topic/1457/1457119.xml?temp=.2183344
  用DELPHI6.0如何封装ASP写的程序？

Answer 3

IIs的虚拟目录其实就存在注册表中，你先手工建个虚拟目录，然后到注册表查找以下就明白了。

Answer 4

procedure TForm1.Button1Click(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;

Answer 5

谢谢各位:但问题还没有解决,利用ADSI要先引入adsiis.dll、iisext.dll和activeds.tlb三个类库,但我在引入第三个(activeds.tlb)时报错,不知为什么.
在引入的前面两个类库中找到了TIISNammesspace类,但没有找到TIISWebserver TIIsWebVirtualDir两个类.
请各位高手指点,调试通过后马上结贴.