在DELPHI中用ADSI来控制IIS,检测、增加、删除虚拟目录
2009-04-29 21:58
344 查看
//在DELPHI中用ADSI来控制IIS,检测、增加、删除虚拟目录
//========================================================
//本代码转自网络,是WebService开发时经常要用到的东东,感谢原作者
//本人稍作修改,并将其整理,希望对大家有用
//========================================================
//删除虚拟目录应用程序名
//删除虚拟目录[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;[/code]
{检测是否有虚拟目录}
//建立虚拟目录
//========================================================
//本代码转自网络,是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;
//删除虚拟目录[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;[/code]
{检测是否有虚拟目录}
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;
相关文章推荐
- 用ADSI控制IIS创建网站, 虚拟目录…… (C#)
- 在Delphi中用ADSI创建IIS的虚拟目录
- 用ADSI控制IIS创建网站, 虚拟目录…… (C#)
- 用Delphi创建IIS虚拟目录
- Asp.net实现IIS控制管理---Web虚拟目录的创建及管理(转)
- 用vbs控制iis创建虚拟目录->[休闲居(xxju.net)—>ASP]
- 使用Delphi创建IIS虚拟目录
- [转]使用C++为IIS的虚拟目录增加MIME类型
- Asp.net实现IIS控制管理---Web虚拟目录的创建及管理
- [转]有关IIS的虚拟目录的控制总结
- 用DELPHI通过写注册表来实现建立IIS的虚拟目录!
- 用vbs控制iis创建虚拟目录
- 用Delphi创建IIS虚拟目录
- IIS控制管理(Web虚拟目录的创建及管理)
- 用vbs控制iis创建虚拟目录的代码
- 关于Windows 2008 IIS无法使用虚拟目录密码作为用户 administrator 在本地登录到...解决方案
- C#如何来创建IIS虚拟目录
- 怎么访问不在网站目录下文件(iis虚拟目录设置)
- 编程建立IIS站点和虚拟目录(1)(头文件)
- ASP控制虚拟主机函数ADSI