内容提要:参照了Inetpub\AdminScripts\adsutil.vbs写的创建虚拟目录的脚本: ////////////////////////// begin ////////////////////////////////////////// On Error Resume Next strVirtualDirectoryName = InputBox(请输入 …… |
mp;"失败") 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。