ITPub博客

首页 > 应用开发 > IT综合 > 用vbs控制iis创建虚拟目录 (转)

用vbs控制iis创建虚拟目录 (转)

原创 IT综合 作者:amyz 时间:2007-11-16 17:36:33 0 删除 编辑
用vbs控制iis创建虚拟目录 (转)[@more@]

  参照了.NETpubAdminScriptsadsutil.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程序时可以参照上面的脚本。
  以上的程序也可以改写为asp的脚本,只是在运行该asp页面时要注意一点,该asp页面所在的虚拟目录的匿名登陆用户必须要为administrator,否则浏览器会提示权限不够的提示!
  使用同样的方式也可以来创建web站点,具体可以参照inetpubAdminScriptsadsutil.vbs。


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-982739/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7338939