- 相关推荐
vbscript自动配置IIS代码
复制代码 代码如下:
strServerName=""localhost""
strRootPath=""g:documents""'虚拟目录路径
strVRName=""Test""'虚拟目录名称
strDefaultDoc=""index.asp""'起始文档
DimobjIIS
'MsgBox""IIS://""&strServerName&""/W3SVC/1""
OnErrorResumeNext
SetobjIIS=GetObject(""IIS://""&strServerName&""/W3SVC/1"")
Iferr=-2147024893Then
MsgBox""IIS不存在!""&vbcrlf&""请验证IIS是否已正确安装!"",vbcritical
Wscript.Quit
ElseIferr<>0Then
MsgBox""未知错误!"",vbcritical
Wscript.Quit
EndIf
OnErrorGoTo0
SetobjVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"")
ForeachVRinobjVirtualDir
IfVR.Name=strVRNameThen
MsgBox""虚拟目录""&strVRName&""已存在!"",vbinformation
Wscript.Quit
EndIf
Next
OnErrorResumeNext
Setfs=Wscript.CreateObject(""Scripting.FileSystemObject"")
SetobjFolder=fs.GetFolder(strRootPath)
Iferr=76Then
MsgBox""路径""&strRootPath&""不存在!"",vbcritical
Wscript.Quit
EndIf
SetobjFolder=nothing
Setfs=nothing
OnErrorGoTo0
OnErrorResumeNext
SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc
VirDir.setInfo
Iferr<>0Then
MsgBox""创建虚拟目录失败!"",vbcritical
Else
MsgBox""虚拟目录""&strVRName&""成功创建在服务器""&strServerName&""上!"",vbinformation
EndIf
代码的关键在于创建虚拟目录，及其中的配置：
SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc
VirDir.setInfo
【vbscript自动配置IIS代码】相关文章：
IIS详细错误代码以及解释08-04
VBScript的入门学习资料有哪些10-13
怎么解决外网不能访问IIS的问题09-29
过滤HTML代码08-29
VBScript中字节数据操作函数06-20
linux配置dns服务器配置命令09-22
巧妙的设置IIS7支持ASP07-17
电脑配置知识10-12
数控编程代码大全05-18
jquery提交按钮的代码07-28