有关IIS的虚拟目录的控制总结-CSDN论坛

⋅Test ⋅最近D版结婚的人比较多。也答应过其中的朋友，结婚给他发贴 ⋅Attempt to fetch logical page 更多帖子 关注私信空间博客 qxj 本版专家分：15428 结帖率 100%: 最近自己做的项目中要有部分IIS的控制,且也有版民提出相应的IIS的问题,
现将自己的一点经验总结如下供大家参考,如有错误之处请与我联系.

程序中需USE COMOBJ单元
1.Q:如何得到机器上IIS中所有的WEB虚拟站点.

A:

var
  InstallPath: String;
  WebSite, WebServer, WebRoot: Variant;
  count: Integer;
  Flag: Boolean;
begin
   Flag :=True;
   count :=1;

   while  Flag do
   begin
      try

        WebSite :=CreateOLEObject('IISNamespace');
        WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
        WebServer := WebSite.GetObject('IIsWebServer', inttostr(count));
        Memo1.Lines.Add(WebServer.ServerComment);
        inc(count);
        except
          flag :=False;
        end;
    end;

2. Q:通过程序控制默认WEB站点的启动,停止,暂停
A:
//停止WEB站点

procedure TForm1.btn_stopClick(Sender: TObject);
var
  InstallPath: String;
  WebSite, WebServer, WebRoot: Variant;
begin
   try
      WebSite :=CreateOLEObject('IISNamespace');
      WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
      WebServer := WebSite.GetObject('IIsWebServer', '1');
      if string(webserver.ServerState) ='2' then
      begin
        webserver.stop;
        showmessage('停止服务成功');
      end;
   except
      showmessage('停止服务失败');
   end;

end;

//启动WEB站点

procedure TForm1.btn_startClick(Sender: TObject);
var
  InstallPath: String;
  WebSite, WebServer, WebRoot: Variant;
begin
    try
      WebSite :=CreateOLEObject('IISNamespace');
      WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
      WebServer := WebSite.GetObject('IIsWebServer', '1');
      if string(webserver.ServerState) ='4' then
      begin
        webserver.start;
        showmessage('启动服务成功');
      end;
    except
      showmessage('启动服务失败');
    end;

end;

//暂停WEB站点

procedure TForm1.btn_pauseClick(Sender: TObject);
var
  InstallPath: String;
  WebSite, WebServer, WebRoot: Variant;
begin
  try
    WebSite :=CreateOLEObject('IISNamespace');
    WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
    WebServer := WebSite.GetObject('IIsWebServer', '1');
    if string(webserver.ServerState) ='2' then
    begin
      webserver.pause;
      showmessage('暂停服务成功');
    end;
  except
    showmessage('暂停服务失败');
  end;

end;

3.虚拟目录的创建
a:以程序在网上或超级猛料中也有,但都没有指定应用程序名,以下程序已完成此功能
var
  InstallPath: String;
  WebSite, WebServer, WebRoot, VDir: Variant;
begin
  WebSite := CreateOleObject('IISNamespace');
  WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
  WebServer := WebSite.GetObject('IIsWebServer', '1');
  webserver.setinfo;
  WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
  VDir := WebRoot.Create('IIsWebVirtualDir', 'VariantTest');
  VDir.AccessRead := True;
  VDir.Path := 'C:\test';
  VDir.AppCreate(True);  //如果没有这句的话,虚拟目录就要人为的手工创建应用程序名

  VDir.SetInfo;
Q:如何得到WEB站点的IP和端口

A:此次以WEB站点为例

var
  InstallPath: String;
  WebSite, WebServer, WebRoot: Variant;
  ar: array of variant;
begin
  try
    WebSite :=CreateOLEObject('IISNamespace');
    WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
    WebServer := WebSite.GetObject('IIsWebServer', '3');
    ar :=    webserver.ServerBindings;   //把IIS虚拟站点绑定的IP、端口、域名的值放入数组
    showmessage(ar[0]);

   except
   end;

更多的请大家查看MSDN中有关ADSI的页面

0 2004-09-03 17:52:20

回复数 21 只看楼主引用举报楼主

⋅Test ⋅最近D版结婚的人比较多。也答应过其中的朋友，结婚给他发贴 ⋅Attempt to fetch logical page 更多帖子 关注私信空间博客 qxj 本版专家分：15428: 1楼

0 2004-09-03 17:52:37

只看TA 引用举报 #1 得分 0

⋅唉，好久没来了。是在没分散。 ⋅好久没来了，没分散。露个脸。 ⋅回来光顾一下，发帖问问大家最近在干什么。 更多帖子 关注私信空间博客 reallike 本版专家分：5103: 沙发。blog看到了。

0 2004-09-03 17:52:48

只看TA 引用举报 #2 得分 10

⋅唉，好久没来了。是在没分散。 ⋅好久没来了，没分散。露个脸。 ⋅回来光顾一下，发帖问问大家最近在干什么。 更多帖子 关注私信空间博客 reallike 本版专家分：5103: 靠，Qxj JR，自己占自己的沙发。

0 2004-09-03 17:53:13

只看TA 引用举报 #3 得分 0

⋅沉痛悼念伴水 ⋅悲痛悼念LYSoft ⋅饭桶，YYgroup让你赶紧回来YY了！ 更多帖子 关注私信空间博客 aiirii 本版专家分：182114 进士 2004年总版技术专家分年内排行榜第六 银牌 2004年4月总版技术专家分月排行榜第二 红花 2006年1月 Delphi大版内专家分月排行榜第一 2005年12月 Delphi大版内专家分月排行榜第一 2005年11月 Delphi大版内专家分月排行榜第一 2005年10月 Delphi大版内专家分月排行榜第一 2005年6月 Delphi大版内专家分月排行榜第一 2004年10月 Delphi大版内专家分月排行榜第一 2004年9月 Delphi大版内专家分月排行榜第一 2004年8月 Delphi大版内专家分月排行榜第一 2004年7月 Delphi大版内专家分月排行榜第一 2004年6月 Delphi大版内专家分月排行榜第一 2004年5月 Delphi大版内专家分月排行榜第一 2004年4月 Delphi大版内专家分月排行榜第一 2004年3月 Delphi大版内专家分月排行榜第一 2003年12月 Delphi大版内专家分月排行榜第一 2003年11月 Delphi大版内专家分月排行榜第一 黄花 2006年4月 Delphi大版内专家分月排行榜第二 2005年5月 Delphi大版内专家分月排行榜第二 2005年4月 Delphi大版内专家分月排行榜第二 2005年3月 Delphi大版内专家分月排行榜第二 2005年2月 Delphi大版内专家分月排行榜第二 2004年12月 Delphi大版内专家分月排行榜第二 2004年2月 Delphi大版内专家分月排行榜第二: 不錯,捧場

0 2004-09-03 17:58:01

只看TA 引用举报 #4 得分 10

⋅关于屏幕切换的问题 ⋅关于模拟IP发送的时候拆包与重组（有偿） ⋅哎，我又发帖求助（有偿啊！！） 更多帖子 关注私信空间博客 nyf1220 本版专家分：6671: 顶一下

0 2004-09-03 17:58:49

只看TA 引用举报 #5 得分 10

⋅小哈欠出生,平安健壮,哈欠在此散分还愿:) ⋅哈欠放分,祝95造人顺利成功,重返CSDN与YY群 ⋅----结婚了-----。。。。散分。。。。 更多帖子 关注私信空间博客 halfdream 本版专家分：38090 铜牌 2000年6月总版技术专家分月排行榜第三: 收藏

0 2004-09-03 18:04:01

只看TA 引用举报 #6 得分 10

⋅vs2010编译新建的win32控制台程序提示“AlwaysCreate信息”，请问如何去掉？ ⋅斑竹帮忙，关于DTS包迁移到SQL Server2005上的问题。 ⋅恭喜甜甜、小伍、549大喜：） 更多帖子 关注私信空间博客 shiyl 本版专家分：5580: mark

----------------------------------------------------------------
             花自飘零水自流，一种相思，两处闲愁。
               此情无计可消除，才下眉头，又上心头。
----------------------------------------------------------------

0 2004-09-03 18:15:18

只看TA 引用举报 #7    得分 10

⋅jinjazz的留言板

⋅哪位了解成熟HIS系统

⋅求图像压缩算法

更多帖子

关注私信空间博客

jinjazz

本版专家分：54329

版主

银牌 2005年2月总版技术专家分月排行榜第二

微软MVP 2009年7月荣获微软MVP称号
2010年7月荣获微软MVP称号
2008年7月荣获微软MVP称号

红花 2005年2月 Delphi大版内专家分月排行榜第一

黄花 2008年5月 .NET技术大版内专家分月排行榜第二
2008年4月 .NET技术大版内专家分月排行榜第二
2004年11月 Delphi大版内专家分月排行榜第二
2004年8月 Delphi大版内专家分月排行榜第二
2004年7月 Delphi大版内专家分月排行榜第二: 学习

0 2004-09-03 18:36:36

只看TA 引用举报 #8 得分 10

⋅终于娶了跟我一起整整6年的女朋友,从今以后就要叫她老婆了：），散分庆祝 ⋅终于娶了跟我一起整整6年的女朋友,从今以后就要叫她老婆了：），散分庆祝 ⋅终于娶了跟我一起整整6年的女朋友,从今以后就要叫她老婆了：），散分庆祝！ 更多帖子 关注私信空间博客 cnhgj 本版专家分：6000 蓝花 2003年9月 .NET技术大版内专家分月排行榜第三: Mark

0 2004-09-05 11:25:40

只看TA 引用举报 #9 得分 10

⋅排序的问题 ⋅复制文件的问题? ⋅初学者的问题,请进! 更多帖子 关注私信空间博客 xh416 本版专家分：130: 到处找，终于在这里找到，不知道能不能调试通过！
我也是一直建立虚拟目录无法建立应用程序名，希望你的是对的！

ADSI的我一直没调试成功！

0 2004-09-05 12:22:33

只看TA 引用举报 #10 得分 10

⋅排序的问题 ⋅复制文件的问题? ⋅初学者的问题,请进! 更多帖子 关注私信空间博客 xh416 本版专家分：130: 提供我写注册表实现的建立IIS虚拟目录，希望大家再来完善！
procedure TForm1.Button1Click(Sender: TObject);
var
  RegODBC:TRegistry;
  registerTemp : TRegistry;
  SysPath: array [0..255] of char;
begin
  RegODBC:=TRegistry.create;     //访问注册表
  RegODBC.RootKey:=HKEY_LOCAL_MACHINE;
  RegODBC.OpenKey('\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots',True);
  getsystemdirectory(SysPath,255);
  if regodbc.ValueExists('/fire') then
    begin
      suimessage1.Text:='本机WEB已存在名为fire的虚拟目录。'+#13#10+'请将此fire删除或重命名。';
        suimessage1.IconType:=suistop;
        suimessage1.ButtonCount:=1;
        suimessage1.Caption:='错误';
        if suimessage1.ShowModal=mrok then
          winexec(pchar(SysPath+'\inetsrv\inetmgr.exe'),sw_shownormal);
       exit;
    end
  else
    begin
  registerTemp := TRegistry.Create; //建立一个Registry实例
  with registerTemp do
    begin
      RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE

//找到或创建\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots,写入IIS配置信息
     if OpenKey('\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots',True) then
       begin
         WriteString('/fire','E:\fire,,205');
       end
     else//创建键值失败
       begin
          suimessage1.Text:='IIS配置失败，本程序即将关闭。'+#13#10+'关闭后请先检查Internet服务管理器，排除错误或安装后再运行本程序。';
          suimessage1.IconType:=suistop;
          suimessage1.ButtonCount:=1;
          suimessage1.Caption:='错误';
        if suimessage1.ShowModal=mrok then
           application.Terminate ;
       end;
     CloseKey;
    Free;
  end;
    end;
  RegODBC.Free;
end;

说明：代码中用到了suipack4控件的suimessagedialog组件(起提示作用)，例子的确认窗口也可通过Application.MessageBox()来替代。代码在DELPHI6+WINDOWS2000中调试通过。如大家对此有兴趣的话可以与我联系。xh416@163.net   QQ:49055028

  附：suipack4的下载地址：http://hbsy-http.skycn.net:8181/down/suitrial_312.zip

0 2004-09-05 12:24:09

只看TA 引用举报 #11    得分 0

⋅Test ⋅最近D版结婚的人比较多。也答应过其中的朋友，结婚给他发贴 ⋅Attempt to fetch logical page 更多帖子 关注私信空间博客 qxj 本版专家分：15428: 楼上的,至少在我的机器上是通过了,win2K pro+ D6(update2)+iis5

0 2004-09-06 09:00:07

只看TA 引用举报 #12 得分 0

⋅排序的问题 ⋅复制文件的问题? ⋅初学者的问题,请进! 更多帖子 关注私信空间博客 xh416 本版专家分：130: 能不能将你的代码发给我一份呢,我测试不能通过!在运行过程中出现如下问题：
  Variant does not reference an automation object.
出错指示在下面这行：
  WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');

我的邮箱是xh416@163.net,谢谢了,我主要是想用创建虚拟目录和获取IP及端口!

0 2004-09-06 09:49:15

只看TA 引用举报 #13    得分 0

⋅Test ⋅最近D版结婚的人比较多。也答应过其中的朋友，结婚给他发贴 ⋅Attempt to fetch logical page 更多帖子 关注私信空间博客 qxj 本版专家分：15428: 我有个同事的机器也有同样的问题,
你给DELPHI打一下UPDATE2(D6_upd2_ent.exe)就行了

0 2004-09-06 13:02:17

只看TA 引用举报 #14 得分 0

⋅Test ⋅最近D版结婚的人比较多。也答应过其中的朋友，结婚给他发贴 ⋅Attempt to fetch logical page 更多帖子 关注私信空间博客 qxj 本版专家分：15428: 如何判断IIS下是否存在某个虚拟目录,但有一个问题,如果是我手工在IIS中建立的虚拟目录会返回错误,不知何解

var
  WebSite, WebServer, WebRoot, VDir: Variant;
  count: Integer;
  Flag: Boolean;
begin
   Flag :=True;
   count :=1;
   while  Flag do
   begin
     try
        WebSite :=CreateOLEObject('IISNamespace');
        WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
        WebServer := WebSite.GetObject('IIsWebServer', inttostr(count));
        WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
        try
          vdir :=webroot.GetObject('IIsWebVirtualDir', 'MyVirtualDir');
          showmessage('已存在此虚拟目录');
        except
          //如果出错则代表不存在
          showmessage('不存在此虚拟目录');
        end;
          inc(count);
       except
          flag :=False;
        end;
    end;
end;

0 2004-09-06 14:43:08

只看TA 引用举报 #15    得分 0

⋅唉，好久没来了。是在没分散。 ⋅好久没来了，没分散。露个脸。 ⋅回来光顾一下，发帖问问大家最近在干什么。 更多帖子 关注私信空间博客 reallike 本版专家分：5103: 好东西是不能叫他沉底的！

0 2004-09-07 14:41:04

只看TA 引用举报 #16 得分 0

trampgirl 本版专家分：10: 学习！！！！

0 2004-09-07 14:57:57

只看TA 引用举报 #17 得分 10

⋅hiflower 重现江湖，请老鸟新人多多支持! ⋅这样的字符串该如何定义？ ⋅这样的字符串常量，在 C 中能编译通过吗？ 更多帖子 关注私信空间博客 hiflower 本版专家分：17449: 真是好东东啊。
我在 Win2000server 中没有发现问题

0 2004-09-07 15:24:24

只看TA 引用举报 #18 得分 10

⋅C#调用外部vc++ dll ，如何传递引用型字符串数组？ ⋅一小段c++，有空的帮忙看看怎么翻译转成c# ⋅有开发经验的朋友，给提供个方案，最好有个例子，相信很多人需要 更多帖子 关注私信空间博客 jpyc 本版专家分：19599: 真有你的！顶！

0 2004-09-07 15:39:41

只看TA 引用举报 #19 得分 10

⋅Test ⋅最近D版结婚的人比较多。也答应过其中的朋友，结婚给他发贴 ⋅Attempt to fetch logical page 更多帖子 关注私信空间博客 qxj 本版专家分：15428: 结贴

0 2004-09-09 18:07:18

只看TA 引用举报 #20 得分 0

⋅沉痛悼念伴水 ⋅悲痛悼念LYSoft ⋅饭桶，YYgroup让你赶紧回来YY了！ 更多帖子 关注私信空间博客 aiirii 本版专家分：182114 进士 2004年总版技术专家分年内排行榜第六 银牌 2004年4月总版技术专家分月排行榜第二 红花 2006年1月 Delphi大版内专家分月排行榜第一 2005年12月 Delphi大版内专家分月排行榜第一 2005年11月 Delphi大版内专家分月排行榜第一 2005年10月 Delphi大版内专家分月排行榜第一 2005年6月 Delphi大版内专家分月排行榜第一 2004年10月 Delphi大版内专家分月排行榜第一 2004年9月 Delphi大版内专家分月排行榜第一 2004年8月 Delphi大版内专家分月排行榜第一 2004年7月 Delphi大版内专家分月排行榜第一 2004年6月 Delphi大版内专家分月排行榜第一 2004年5月 Delphi大版内专家分月排行榜第一 2004年4月 Delphi大版内专家分月排行榜第一 2004年3月 Delphi大版内专家分月排行榜第一 2003年12月 Delphi大版内专家分月排行榜第一 2003年11月 Delphi大版内专家分月排行榜第一 黄花 2006年4月 Delphi大版内专家分月排行榜第二 2005年5月 Delphi大版内专家分月排行榜第二 2005年4月 Delphi大版内专家分月排行榜第二 2005年3月 Delphi大版内专家分月排行榜第二 2005年2月 Delphi大版内专家分月排行榜第二 2004年12月 Delphi大版内专家分月排行榜第二 2004年2月 Delphi大版内专家分月排行榜第二: 等我接一把

0 2004-09-09 18:09:06

只看TA 引用举报 #21 得分 0

有关IIS的虚拟目录的控制总结 [问题点数：110分，结帖人qxj]