VBScript Config IIS
来源:互联网 发布:php赌博系统源代码 编辑:程序博客网 时间:2024/06/06 07:16
怪事,我的IIS安装完,iis管理器不能打开,但iis服务能正常使用,.net 建立的 asp工程也能 ' My Documentsコピー
Set AppRoot = Root.Create("IISWebVirtualDir", "TestScript") |
参照了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。
- VBScript Config IIS
- vbscript自动配置IIS
- vbscript自动配置IIS
- Siebel Config: Outlook Form VBScript Codes
- IIS ApplicationHost.config错误修复
- VBScript
- VBScript
- vbscript
- vbscript
- VBScript
- VBScript
- VBScript
- VBScript
- Corrupted applicationHost.config file in IIS 7
- Corrupted applicationHost.config file in IIS 7
- win7 IIS Web.config节点锁定问题
- Config PHP5.6 on WIN7 IIS
- Translate .htaccess Content to IIS web.config
- 开业大吉!
- 祝贺:小叮咚 现在开始用 JMX 管理
- ASP显示在线人数
- 使用Visio 2000逆向工程将代码转换为UML图表
- 一段用ASP查看ASP文件源码的程序.
- VBScript Config IIS
- 在程序中动态改变菜单
- 内部安全理念(一)--概述
- 计算机物证调查问题研究(一)
- Linux下J2sdk的安装
- 艰难历程的开始......
- 谁会记得士多的名字
- 5个名额,需要的留下First Name , Last Name , Email 吧!
- 成长中必须知道的20个故事[第一部分]