vbscript自动配置IIS的代码

代码如下:

strServerName =""localhost""
strRootPath=""g:\documents"" ''虚拟目录路径
strVRName=""Test"" ''虚拟目录名称
strDefaultDoc=""index.asp"" ''起始文档

Dim objIIS
''MsgBox ""IIS://"" &  strServerName &  ""/W3SVC/1""

On Error Resume Next
Set objIIS=GetObject(""IIS://"" &  strServerName &  ""/W3SVC/1"")

If err=-2147024893 Then
MsgBox ""IIS不存在!"" &  vbcrlf &  ""请验证IIS是否已正确安装!"",vbcritical
Wscript.Quit
ElseIf err<>0 Then
MsgBox ""未知错误!"",vbcritical
Wscript.Quit
End If

On Error GoTo 0

Set objVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"")
For each VR in objVirtualDir
If VR.Name=strVRName Then
MsgBox ""虚拟目录"" &  strVRName &  ""已存在!"",vbinformation
Wscript.Quit
End If
Next

On Error Resume Next
Set fs=Wscript.CreateObject(""Scripting.FileSystemObject"")
Set objFolder=fs.GetFolder(strRootPath)

If err=76 Then 
MsgBox ""路径"" &  strRootPath &  ""不存在!"",vbcritical
Wscript.Quit
End If

Set objFolder=nothing
Set fs=nothing
On Error GoTo 0

On Error Resume Next
Set VirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc &  "","" &  strDefaultDoc

VirDir.setInfo

If err<>0 Then
MsgBox ""创建虚拟目录失败!"",vbcritical
Else
MsgBox ""虚拟目录"" &  strVRName &  ""成功创建在服务器"" &  strServerName &  ""上!"",vbinformation
End If

代码的关键在于创建虚拟目录，及其中的配置：

Set VirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc &  "","" &  strDefaultDoc

VirDir.setInfo

赞 (0)

相关推荐

  • vbscript自动配置IIS的代码

    复制代码 代码如下: strServerName =""localhost"" strRootPath=""g:\documents"" ''虚拟目录路径 strVRName=""Test"" ''虚拟目录名称 strDefaultDoc=""index.asp"" ''起始文档 Dim objIIS ''MsgBox ""II

  • SpringBoot DataSource数据源实现自动配置流程详解

    SpringBoot DataSource数据源实现自动配置流程详解

    目录 一.重点概念 1.什么是DataSource数据源 2.数据库连接池 二.导入依赖 三.分析自动配置 1.DataSourceAutoConfiguration类 2.DataSourceTransactionManagerAutoConfiguration类 3.JdbcTemplateAutoConfiguration类 4.JndiDataSourceAutoConfiguration类 5.XADataSourceAutoConfiguration类 四.代码样例 一.重点概念 1

  • SpringBoot自动配置之自定义starter的实现代码

    前言:前面已经介绍了自动配置的很多原理,现在我们着手自己定义一个starter. 需求:自定义redis-starter,要求当导入redis坐标后,SpringBoot自动创建Jedis的Bean.正式开始之前,我们可以查看Mybatis的起步依赖是如果实现自动配置的.我这里就省略了,大家根据之前的分析文章,自己看源码即可. 一.先创建一个SpringBoot工程redis-spring-boot-autoconfigure,该工程中添加jedis依赖,并且创建一个自动配置类RedisAuto

  • Spring Boot实战教程之自动配置详解

    Spring Boot实战教程之自动配置详解

    前言 大家应该都有所了解,随着Ruby.Groovy等动态语言的流行,相比较之下Java的开发显得格外笨重.繁多的配置.低下的开发效率.复杂的部署流程以及第三方技术集成难度大等问题一直被人们所诟病.随着Spring家族中的新星Spring Boot的诞生,这些问题都在逐渐被解决. 个人觉得Spring Boot中最重要的两个优势就是可以使用starter简化依赖配置和Spring的自动配置.下面这篇文章将给大家详细介绍Spring Boot自动配置的相关内容,话不多说,来一起看看详细的介绍. 使

  • Java之Spring注解配置bean实例代码解析

    前面几篇均是使用xml配置bean,如果有上百个bean,这是不可想象的.故而,请使用注解配置bean !!! [1]注解类别 @Component : 基本注解, 标识了一个受 Spring(点击这里可以下载<Spring应用开发完全手册>) 管理的组件 @Repository : 标识持久层组件 @Service : 标识服务层(业务层)组件 @Controller : 标识表现层组件 Spring 能够从 classpath 下自动扫描, 侦测和实例化具有特定注解的组件. 对于扫描到的组

  • 初识Spring Boot框架之Spring Boot的自动配置

    初识Spring Boot框架之Spring Boot的自动配置

    在上篇博客初识Spring Boot框架中我们初步见识了SpringBoot的方便之处,很多小伙伴可能也会好奇这个spring Boot是怎么实现自动配置的,那么今天我就带小伙伴我们自己来实现一个简单的Spring Boot 自动配置的案例,看看这一切到底是怎么发生的. 假设我的需求是这样的:当我的项目中存在某个类的时候,系统自动为我配置该类的Bean,同时,我这个Bean的属性还可以在application.properties中进行配置,OK,就这样一个需求,我们来看看怎么实现. 1.新建s

  • Mybatis结果集自动映射的实例代码

    在使用Mybatis时,有的时候我们可以不用定义resultMap,而是直接在<select>语句上指定resultType.这个时候其实就用到了Mybatis的结果集自动映射.Mybatis的自动映射默认是开启的,有需要我们也可以将其关闭(还可以调整自动映射的策略). 1       Mybatis结果集自动映射 在使用Mybatis时,有的时候我们可以不用定义resultMap,而是直接在<select>语句上指定resultType.这个时候其实就用到了Mybatis的结果集

  • linux adsl 拨号自动配置脚本的方法

    在使用动态vps服务器的时候发现一枚已经写好的自动配置拨号的shell脚本,分享一下,免去手动配置的烦恼,代码如下 #! /bin/sh PATH=/usr/lib64/qt-3.3/bin:/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin:/root/bin Log=/var/log/pppoe.log sed -i '/^GATEWAY/d' /etc/sysconfig/network-scripts/ifcfg-et

  • Node.js如何自动审核团队的代码

    前言 在团队开发中,无论是写前端(js,css,html) ,还是后端 ,我们常常需要解决一个问题:如何统一团队代码风格. 这篇文章主要是使用pre-git , eslint , js-beautify 实现代码风格控制. 下面分别介绍这三个工具和使用方式: pre-git 该工具能实现git hook的功能,在git的流程中插入一些自定义行为,例如commit之前执行代码检测,如果不通过则报错. eslint 代码格式审核工具,可以随意组合配置各种风格,用于组成团队的代码统一规范. js-be

  • IIS备份 自动备份IIS设置和恢复IIS设置(自动还原Web服务器)

    WIN2003 IIS --> 右键 --> 所有任务 --> 备份/还原配置 备份后文件会保存在 %WINDIR%\system32\inetsrv\MetaBack 目录下... 备份IIS设置 IIS本身自带了备份和恢复IIS设置的功能.在恢复IIS设置之前需要备份IIS.备份的过程很简单:在Windows 2000 Server中找到"开始"菜单中的"管理工具",点击其中的"Internet服务管理器",在服务器名称上右

随机推荐