复制代码 代码如下:
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
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
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“vbscript自动配置IIS的代码”评论...
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新动态
2024年05月11日
2024年05月11日
- ABC唱片-《模拟万岁.立体魔声》6N纯银镀膜[WAV+CUE]
- 叶启田.1992-唱新歌·演奏畅销金曲【吉马】【WAV+CUE】
- 品冠.2004-门没锁(引进版)【滚石】【WAV+CUE】
- 万玲琳.2020-晚安,失眠的我(EP)【灵气音乐】【WAV分轨】
- 缇ゆ槦銆婄兢鏄熸瓕鏇插悎闆嗐€媅FLAC/鍒嗚建][3.1G]
- 尚雯婕《尚雯婕歌曲合集》[320K/MP3][198MB]
- 半吨兄弟《迷人烟嗓》 [WAV+CUE][527.2MB]
- 欢乐钓鱼大师锦标赛怎么玩 欢乐钓鱼大师锦标赛玩法介绍
- 欢乐钓鱼大师怎么加好友 欢乐钓鱼大师加好友方法
- 欢乐钓鱼大师鱼竿能不能重置 欢乐钓鱼大师鱼竿重置介绍
- 浩声雅韵-《2023第十八届南宁(东盟)国际视听展》珍藏版纪念CD[WAV+CUE]
- 江淑娜1996-长夜悄悄【点将】WAV+CUE
- 王馨平.1993-LINDAWONG【宝丽金】【WAV+CUE】
- 外媒玩了50小时《哈迪斯2》!称比第一部还好玩
- 陈奕迅.2013-MUSIC.LIFE精选4CD【英皇娱乐】【WAV+CUE】