CSDN博客

img JAVAvNET

VBScript Config IIS

发表于2004/10/13 18:51:00  894人阅读

分类: ★技术 >.Net

怪事,我的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。


阅读全文
0 0

相关文章推荐

img
取 消
img