怎么用vbs创建虚拟目录-创新互联

这篇文章主要介绍“怎么用vbs创建虚拟目录”,在日常操作中,相信很多人在怎么用vbs创建虚拟目录问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”怎么用vbs创建虚拟目录”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!

创新互联建站服务项目包括通道网站建设、通道网站制作、通道网页制作以及通道网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,通道网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到通道省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!

复制代码 代码如下:


'////////////////////////// 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)  
objVirtualDirectory.AccessScript = true  
objVirtualDirectory.Path = strVirtualDirectoryPath  
objVirtualDirectory.EnableDefaultDoc=True  
objVirtualDirectory.DefaultDoc="index.htm"  
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName  
objVirtualDirectory.SetInfo  
objVirtualDirectory.AppCreate true 'bolInProcessApplication  
msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功,"&vbCrLf&"请在浏览器地址栏中输入http://localhost/"&strVirtualDirectoryName&"/查看效果")  
else  
objVirtualDirectory.AccessScript = true  
objVirtualDirectory.Path = strVirtualDirectoryPath  
objVirtualDirectory.EnableDefaultDoc=True  
objVirtualDirectory.DefaultDoc="index.htm"  
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName  
objVirtualDirectory.SetInfo  
objVirtualDirectory.AppCreate true 'bolInProcessApplication  
msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功,"&vbCrLf&"请在浏览器地址栏中输入http://localhost/"&strVirtualDirectoryName&"/查看效果")  
end if  
End If  
Set MyFso = nothing  

'////////////////////////// end //////////////////////////////////////////



在做安装的asp程序时可以参照上面的脚本。


到此,关于“怎么用vbs创建虚拟目录”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!


本文名称:怎么用vbs创建虚拟目录-创新互联
链接地址:http://scyanting.com/article/dceoei.html