vbscript自动配置IIS

原创 2004年07月17日 10:29:00

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

用VBSCRIPT自动输入登录信息

几日前,朋友问我能不能帮他做一个能自动输入登录信息功能的程序。了解到,他的那个程序是运行在一款叫做“夜神安卓模拟器”(OUT了,第一次知道还有这种神器)环境下的360股票APP。对于这款模拟器我不甚了...
  • cg_i
  • cg_i
  • 2016年08月19日 22:07
  • 1491

配置iis支持.json格式的文件,如果是其他设备可以直接获取json里的数据

这段时间学些easyui,用IIS调试的时候,发现IIS竟然无法浏览json文件,蛋疼的IIS啊, 上网差了一下资料,发现要让IIS支持json文件并不是单纯的添加mime这么简单啊,以下是设置方法...
  • suny775
  • suny775
  • 2014年09月12日 15:12
  • 663

VBScript-----妙用SendKeys简化重复操作

妙用SendKeys简化重复操作 每次开机的时候,你想自动登陆你的QQ或者博客吗?巧妙使用VBS中的SendKeys命令(这个命令的作用就是模拟键盘操作,将一个或多个按键指令发送到指定Windows...
  • slforeverlove
  • slforeverlove
  • 2015年07月28日 13:41
  • 772

利用SecureCRT的VBScript进行自动化控制

在SecureCRT中使用VBSCRIPT脚本,确实能够提高我们的工作效率,并且可以实现完全的自动化。 SecureCRT给我们提供了很好的平台——脚本工具制作和运行。下面就SecureCRT工...
  • pfm685757
  • pfm685757
  • 2017年03月21日 20:57
  • 1296

iis7、iis8配置备份还原

方法1: 1、打开我们的IIS管理器,在功能视图里找到“共享的配置”这个功能然后双击进入。   2、进入“共享的配置”后单机右上方的“导出配置”选项,选择导出配置文件的物理路径,然后设...
  • yujiang0
  • yujiang0
  • 2015年08月07日 10:11
  • 1936

service unavailable iis应用程序池自动停止关闭的原因

原文:http://www.webkaka.com/tutorial/iis/2012/05228/ 今天在网站配置的时候发现一件比较离奇的事,那就是当我配置好网站后访问时,总是出现...
  • u013908405
  • u013908405
  • 2016年09月03日 15:52
  • 3060

VBScript的读写文件操作

第一步:OpenTextFile() 或者OpenAsTextStream() 第二步:Read 方法 或者ReadAll 方法 或者ReadLine 方法 Write 方法 W...
  • u013569416
  • u013569416
  • 2014年11月23日 17:18
  • 1637

VBScript中SendKeys与项目结合的妙用

VBScript中的SendKeys命令模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:object.SendKeys string。其中,“objec...
  • WZ18810463869
  • WZ18810463869
  • 2016年02月29日 21:09
  • 489

VBScript例子程序

VBS基本语法介绍W3CSchool工作中遇到的问题,项目组长给了一个Excel,让分析其中包含的字符含义,由于每页条数太多,导致看不出来要分析的字符在一长串字符中的位置。于是想把其中要注意的字符标注...
  • slaory
  • slaory
  • 2015年07月08日 20:54
  • 157

IIS自动停止,iis自动关闭。应用程序池假死、自动重启以及iis权限等解决办法

IIS无故自动关闭停止已经不是罕见的事情了,处理这个问题是让我很头痛的事情,遇到这个问题不太可能一次性解决,多数都是用排除法一个个测试排除错误,最终找到那个错误命令。最近我的服务器遇到了这个问题,我很...
  • deepwishly
  • deepwishly
  • 2014年08月25日 09:51
  • 2610
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vbscript自动配置IIS
举报原因:
原因补充:

(最多只允许输入30个字)