[转]有关IIS的虚拟目录的控制总结
原文地址:http://siyebocai.blog.163.com/blog/static/103316426200810297424779/
程序中需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的页面
转载于:https://www.cnblogs.com/cisky/archive/2011/01/05/1926252.html
[转]有关IIS的虚拟目录的控制总结相关推荐
- 配置IIS之虚拟目录
什么是IIS虚拟目录?有什么优点? 虚拟目录指在站点下建立一个虚拟子目录,指定一个固定的物理路径做为站点的应用路径. 1.虚拟目录与父级站点共用一个应用程序池,例如:站点TestWeb(c:\Inet ...
- linux下创建nginx虚拟目录详解,通过Samba映射Linux磁盘作为Windows IIS的虚拟目录--梦飞翔的地方(梦翔天空)...
对于Windows和Linux共存的网站,头疼的问题之一是数据共享.例如,网站有大量静态网页,这些页面由WINDOWS动态站点生成,由LINUX的NGINX(或APACHE.LIGHTHTTP)展示, ...
- IIS的虚拟目录和子应用程序
一.虚拟目录 虚拟目录是指在发布的网站下建立一个虚拟子目录,指定一个固定的物理路径做为站点的应用路径. 1. 虚拟目录与父级站点共用一个应用程序池,网站Test是在D盘下建立了的虚拟目录,则Test设 ...
- [转]命令行在IIS添加虚拟目录
来自:http://www.jb51.net/softjc/29702.html Mkwebdir -c LocalHost -w "Default Web Site" –v Co ...
- 设置 IIS下虚拟目录或应用程序不继承主站点的web.config
因添加了子应用程序,子应用程序会继承使用主站点的webconfig 导致子应用运行出错. 只需要解决冲突的字节段,在主站点加上节点 <system.web> 外面套上如下locatio ...
- VS中 无法创建虚拟目录 本地IIS IIS Express 外部主机
从前就有个疑问了,为什么我拉取别人写好的代码后就可以在IIS里面生成一个网站呢? 这里所谓的生成网站,是指包含了所有源代码文件的网站:相对地,发布网站,就是指包含被编译的源文件所得到的DLL文件的网站 ...
- IIS7.0站点/虚拟目录中访问共享
目的:实现一个2008serve的IIS的虚拟目录(通过网络路径(UNC)的形式,共享在另外一个2008服务器上) 准备工作 1.运行组策略编辑器(gpedit.msc): 找到本地安全策略-本地策略 ...
- VS中 无法创建虚拟目录
从前就有个疑问了,为什么我拉取别人写好的代码后就可以在IIS里面生成一个网站呢? 这里所谓的生成网站,是指包含了所有源代码文件的网站:相对地,发布网站,就是指包含被编译的源文件所得到的DLL文件的网站 ...
- IIS虚拟目录控制类
轉自:http://www.netfocus.cn/peoplearticle941.html using System; using System.Data; using System.Direct ...
最新文章
- 关于在VS2005环境下无法从源视图切换到设计视图的解决方案
- linux 图形界面 X Server 关闭 启动
- 杭电1232 畅通工程
- 复杂的选择屏幕搜索帮助
- 如何解决90%的报表设计难题?300张报表模板任君挑选
- 2020中国信息流平台品牌服务价值分析
- 爬虫03-url的格式
- 如何将常用的软件上传到ESXi本地存储中管理
- 如何运用Python建立你的第一个Slack聊天机器人?
- Android常用对话框
- android oppo 模拟器,小姚Android构建VIVO华为魅族OPPO小米联想手游Android模拟器
- SparseLDA算法
- 2022年度Top9的任务管理系统
- 第一个blog--常用在线网站
- Java实现AD域登录认证
- linux怎么发现和处理僵尸进程?
- 如何评价「仙剑奇侠传六」使用Unity 3D引擎?
- 表格号码归属地查询的正确检测方式
- 硕士发表SCI论文84篇遭质疑?!本人霸气回应:有无造假随便查!没有拼爹!...
- Ubuntu18.04 显卡GF-940MX安装NVIDIA-390.77
热门文章
- 全球及中国冶金行业战略决策与盈利前景分析报告2022版
- 全球及中国人工智能驱动的医学成像行业全景调研及运营战略分析报告2021-2027年版
- 中国燃油宝市场需求预测与投资前景趋势分析报告2022-2028年版
- 全球及中国电动自行车零件和配件行业运营状况及未来发展趋势预测报告2022年版
- vs2005制作安装包(自动安装.net framework 2.0)(小寿原创)
- MySql中的运算符
- 一篇关于Maven项目的jar包Shell启动脚本
- 消息系统kafka原理解析
- 使用JSON JavaScriptSerializer 进行序列化或反序列化时出错。字符串的长度超过了为 maxJsonLength属性...
- apiCloud中图片裁剪模块FNImageClip的使用