delphi 得到 iIS 下所有的 web 站点

Question

第一次发贴希望大家可以支持下.谢谢哦.//function GetWebSiteList(slWebSiteList:TStrings):Integer;
//var
//  InstallPath: String;
//  WebSite, WebServer, WebRoot: Variant;
//  iCount: Integer;
//  Flag: Boolean;
//begin
//  Result := 0;
//  Flag :=True;
//  iCount :=1;
//  slWebSiteList.Clear;
//  while  Flag do
//  begin
//    try
//      WebSite :=CreateOLEObject('IISNamespace');
//      WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
//      //iCount得到第几个站点的信息
//      WebServer := WebSite.GetObject('IIsWebServer', InttoStr(iCount));
//      slWebSiteList.Add(WebServer.ServerComment);
//      Result := iCount;
//      Inc(iCount);
//    except
//      Flag :=False;
//    end;
//  end;
//end;声明下.上面的方法行不通.因为WebServer := WebSite.GetObject('IIsWebServer', InttoStr(iCount));后面的InttoStr(iCount)不是递增的.有的IIS里的网站不通过手动建.这个不是递增的.不宜其它方法没有.谢谢哦