在DELPHI中用ADSI来控制IIS，检测、增加、删除虚拟目录

最新推荐文章于 2020-04-10 11:14:49 发布

weixin_30753873

最新推荐文章于 2020-04-10 11:14:49 发布

阅读量83

点赞数

原文链接：http://www.cnblogs.com/xieyunc/archive/2009/04/29/2793655.html

版权

//在DELPHI中用ADSI来控制IIS，检测、增加、删除虚拟目录
//========================================================
//本代码转自网络，是WebService开发时经常要用到的东东，感谢原作者
//本人稍作修改，并将其整理，希望对大家有用
//========================================================

//删除虚拟目录应用程序名

function DeleteVirtualDirApp(strVirtualDir: string): Boolean; var WebSite, WebServer, WebRoot, vdir: Variant; begin Result := True; try WebSite := CreateOleObject('IISNamespace'); WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc'); WebServer := WebSite.GetObject('IIsWebServer', '1'); WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root'); vdir := WebRoot.GetObject('IIsWebVirtualDir', strVirtualDir); vdir.AppDelete; vdir.SetInfo; except Result := False; end; end;[/code] //删除虚拟目录[codes=delphi] function DeleteVirtualDir(strVirtualDir: string): Boolean; var WebSite, WebServer, WebRoot, vdir: Variant; begin Result := True; try WebSite := CreateOleObject('IISNamespace'); WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc'); WebServer := WebSite.GetObject('IIsWebServer', '1'); WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root'); WebRoot.Delete('IIsWebVirtualDir', strVirtualDir); except Result := False; end; end;
{检测是否有虚拟目录}

function CheckVirtualDir(const strVirtualDir: string): Boolean; var WebSite, WebServer, WebRoot, vdir: Variant; begin Result := True; try WebSite := CreateOleObject('IISNamespace'); WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc'); WebServer := WebSite.GetObject('IIsWebServer', '1'); WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root'); WebRoot.GetObject('IIsWebVirtualDir', strVirtualDir); except Result := False; end; end;
//建立虚拟目录

function CreateVirtualDir(const strVirtualDir, strDir, strAppName: string): Boolean; var WebSite, WebServer, WebRoot, vdir: Variant; begin Result := True; try WebSite := CreateOleObject('IISNamespace'); WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc'); WebServer := WebSite.GetObject('IIsWebServer', '1'); WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root'); vdir := WebRoot.Create('IIsWebVirtualDir', strVirtualDir); vdir.AccessRead := True; vdir.AccessScript := True; //执行许可为纯脚本 vdir.DefaultDoc := 'index.aspx,index.asp'; //默认文档 vdir.EnableDirBrowsing := False; vdir.AppFriendlyName := strAppName; //应用程序名 vdir.Path := strDir; vdir.AppCreate(True); //如果没有这句的话,虚拟目录就要人为的手工创建应用程序名 vdir.SetInfo; except Result := False; end; end;

转载于:https://www.cnblogs.com/xieyunc/archive/2009/04/29/2793655.html