VBScript Config IIS

原创 2004年10月13日 18:51:00

怪事,我的IIS安装完,iis管理器不能打开,但iis服务能正常使用,.net 建立的 asp工程也能
正常运行。
无奈,只能通过脚本config了。我的:

Set Root = GetObject("IIS://localhost/w3svc/1/ROOT")

' My Documentsコピー
Set WshShell = WScript.CreateObject("WScript.Shell")


' 仮想ディレクトリ作成
WScript.Echo "仮想ディレクトリ作成"
WshShell.Run "cmd.exe /c iisreset -start", 0, True

Set AppRoot = Root.Create("IISWebVirtualDir", "TestScript")
AppRoot.AppCreate2 2
AppRoot.AppFriendlyName = "TestScript"
AppRoot.Path = Root.Path & "/TestScript"
AppRoot.SetInfo()
Root.SetInfo()
//只知道建立,不会删除。幸好有下面老兄提示:

    参照了Inetpub/AdminScripts/adsutil.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站点,具体可以参照inetpub/AdminScripts/adsutil.vbs。


解决IIS 不能下载.config文件的方法

如果是iis6右键网站属性---》主目录---》编辑在缓存ISAPI的应用程序扩展名中删除.config 项目ASP.NET IIS映射(IIS->默认网站->属性->主文档->配置->映射->添加)...
  • csxjy1986
  • csxjy1986
  • 2011年06月09日 00:02
  • 5923

vbscript自动配置IIS

源程序如下:(客户端脚本,已在Win2000通过)strServerName ="localhost"strRootPath="g:/documents" 虚拟目录路径strVRName="Test"...
  • aspczlover
  • aspczlover
  • 2004年10月02日 05:13
  • 491

让IIS中提示错误更加生动(asp)

让IIS中提示错误更加生动(asp)作者:西风剑 阅读:8 次 时间:2004-10-13 来源:稳步网络默认的IIS 500-100.asp文件错误提示只报到行号,这对我们找错误还是很麻烦的本文件是...
  • zhcool
  • zhcool
  • 2004年10月20日 12:51
  • 822

IIS7.5 Microsoft VBScript runtime error '800a0046'的解决

错误提示:Microsoft VBScript runtime error ‘800a0046’Permission denied/LM/W3SVC/3/ROOT/global.asa, line 6...
  • qq_28629495
  • qq_28629495
  • 2016年05月24日 12:32
  • 658

关于错误信息的显示

asp程序出错后,错误提示不是很清楚明白,让人摸不着头脑,用下面方法看看有没有帮助(此法目前只适合处ADO错误外的错误)步骤一,用编辑器打开c:/winnt/help/iisHelp/common/5...
  • netyfhome
  • netyfhome
  • 2001年08月30日 08:50
  • 560

关于IIS虚拟目录继承根Web.Config的问题解决办法

利用配置文件的配置节可以让它不继承父目录的配置文件,如下 ns="false"> 把它加在父目录的节外面即可,测试一下果然如此,甚喜,虽记之以备忘,同时也于大伙共享! 下面是更好的...
  • w87875251l
  • w87875251l
  • 2012年05月24日 14:43
  • 3703

VBScript例子程序

VBS基本语法介绍W3CSchool工作中遇到的问题,项目组长给了一个Excel,让分析其中包含的字符含义,由于每页条数太多,导致看不出来要分析的字符在一长串字符中的位置。于是想把其中要注意的字符标注...
  • slaory
  • slaory
  • 2015年07月08日 20:54
  • 184

Config PHP5.6 on WIN7 IIS

1. first  install IIS on WIN7 , after installed , see below 2. install PHP 5.6 from...
  • david95
  • david95
  • 2015年11月03日 18:14
  • 102

VBScript 中的 "+" 和 "&" 连接字符串的区别

(1) "+" 加法运算符。                          如果两个 String 的类型使用 "+", 那么则相加, 如果是两个都是Numberic,则相加           ...
  • erix1991
  • erix1991
  • 2013年12月20日 11:56
  • 882

IIS上虚拟站点的web.config与主站点的web.config冲突解决方法

IIS上在主站点下搭建虚拟目录后,子站点中的节点与主站点的冲突解决方法: 在主站点的上一级添加父节点: path="." allowOverride="false" inheritI...
  • a497785609
  • a497785609
  • 2015年06月15日 14:07
  • 4114
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBScript Config IIS
举报原因:
原因补充:

(最多只允许输入30个字)