最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用vbs控制iis创建虚拟目录
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
'////////////////////////// begin //////////////////////////////////////////
On Error Resume Next
strVirtualDirectoryName = InputBox("请输入虚拟目录名")
If strVirtualDirectoryName = "" Then
msgbox("输入错误,程序结束!")
WScript.Quit
End If
strVirtualDirectoryPath=InputBox("请输入网站文件所在的目录名(例如:e:web)")
If strVirtualDirectoryPath = "" Then
msgbox("输入错误,程序结束!")
WScript.Quit
End If
strVirtualDirectoryPath = Replace(strVirtualDirectoryPath,"/","")
Set MyFso = CreateObject("Scripting.FileSystemObject")
If MyFso.FolderExists(strVirtualDirectoryPath) = 0 then
msgbox("文件夹"&strVirtualDirectoryPath&"不存在!")
Else
Set objIIS = GetObject("IIS://localhost/W3SVC/1/Root")
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)
If (Err.Number <> 0) Then '如果虚拟目录已存在或有其他错误时则为真
Err.Clear
Set myDir = objIIS.GetObject("IIsWebVirtualDir",strVirtualDirectoryName) '创建虚拟目录对象
If (Err.Number <> 0) Then '虚拟目录不存在时则为真,说明是其他未知错误,否则为虚拟目录已存在
msgbox("对不起,发生未知错误,操作失败!")
WScript.Quit (Err.Number)
end if
m=msgbox ("虚拟目录"&strVirtualDirectoryName&"已存在,是否删除?",1+32,"删除确认")
if m<>1 then
WScript.Quit end if
objIIS.Delete "IIsObject", strVirtualDirectoryName
If (Err.Number <> 0) Then
msgbox("删除虚拟目录"&strVirtualDirectoryName&"失败")
WScript.Quit (Err.Number)
end if
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)
-
上一个: 正则表达式练习测试页
-
下一个: 实现UBB代码
相关文章
- InDesign给书籍添加目录方法 怎么添加目录 04-27
- 追追漫画下载目录在哪 追追漫画APP下载目录介绍 03-04
- CDR 制表位如何制作图书目录?CDR制表位制作图书目录教程 01-18
- 追书神器怎么看目录 追书神器查看目录方式 12-17
- 网易云音乐下载目录所在位置分享 09-08
- word2010如何制作目录 word2010制作做目录的方法 08-05