vbscript自动配置IIS

原创 2004年07月17日 10:29:00

strServerName ="localhost"
strRootPath="g:/documents" ''虚拟目录路径
strVRName="Test" ''虚拟目录名称
strDefaultDoc="index.asp" ''起始文档

Dim objIIS
''MsgBox "IIS://" &  strServerName &  "/W3SVC/1"

On Error Resume Next
Set objIIS=GetObject("IIS://" &  strServerName &  "/W3SVC/1")

If err=-2147024893 Then
MsgBox "IIS不存在!" &  vbcrlf &  "请验证IIS是否已正确安装!",vbcritical
Wscript.Quit
ElseIf err<>0 Then
MsgBox "未知错误!",vbcritical
Wscript.Quit
End If

On Error GoTo 0

Set objVirtualDir=objIIS.GetObject("IISWebVirtualDir","Root")
For each VR in objVirtualDir
If VR.Name=strVRName Then
MsgBox "虚拟目录" &  strVRName &  "已存在!",vbinformation
Wscript.Quit
End If
Next

On Error Resume Next
Set fs=Wscript.CreateObject("Scripting.FileSystemObject")
Set objFolder=fs.GetFolder(strRootPath)

If err=76 Then
MsgBox "路径" &  strRootPath &  "不存在!",vbcritical
Wscript.Quit
End If

Set objFolder=nothing
Set fs=nothing
On Error GoTo 0

On Error Resume Next
Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc &  "," &  strDefaultDoc

VirDir.setInfo

If err<>0 Then
MsgBox "创建虚拟目录失败!",vbcritical
Else
MsgBox "虚拟目录" &  strVRName &  "成功创建在服务器" &  strServerName &  "上!",vbinformation
End If

代码的关键在于创建虚拟目录,及其中的配置:

Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc &  "," &  strDefaultDoc

VirDir.setInfo

vbscript自动配置IIS

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

用VBSCRIPT自动输入登录信息

几日前,朋友问我能不能帮他做一个能自动输入登录信息功能的程序。了解到,他的那个程序是运行在一款叫做“夜神安卓模拟器”(OUT了,第一次知道还有这种神器)环境下的360股票APP。对于这款模拟器我不甚了...
  • cg_i
  • cg_i
  • 2016年08月19日 22:07
  • 1525

VBScript Config IIS

怪事,我的IIS安装完,iis管理器不能打开,但iis服务能正常使用,.net 建立的 asp工程也能正常运行。无奈,只能通过脚本config了。我的:Set Root = GetObject("II...
  • JAVAvNET
  • JAVAvNET
  • 2004年10月13日 18:51
  • 906

ASP 中VBScript发送邮件

   Email Confirmation  YourName = Request.Form("YourName")  FriendName = Request.Form("FriendName") ...
  • lzid2008
  • lzid2008
  • 2006年09月30日 14:28
  • 1070

阿里云https在iis中的配置

1,首先申请免费dv证书,申请的时候提示要把原来的域名解析删掉,这里要先删掉 2.添加dns解析,这一步按提示来 3.证书申请通过以后,到iis上把证书导入,并且绑定好域名,选择https...
  • cangege123
  • cangege123
  • 2017年10月24日 16:59
  • 295

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

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

IIS自动配置

 把一下文件存成 *.vbs文件,然后直接运行。这样方便了IIS部署虚拟目录。strServerName ="localhost" strRootPath="D:/工程/web" 虚拟目录路径 str...
  • seawavecau
  • seawavecau
  • 2007年03月30日 15:23
  • 551

VBScript 发送电子邮件

实现用VBScript发送电子邮件很简单。下边用到的CDO是微软协作数据对象库,用于实现到自定义应用程序的消息传送和协作功能。 我们利用微软CDO对象用以下代码实现使用SMTP协议发送电子邮件:...
  • meizihan0623
  • meizihan0623
  • 2011年10月17日 23:47
  • 905

html中被强制加入VBScript代码!

不知道什么时候HTML文件后面全被注入贼tm长的东西(
  • itSeven7
  • itSeven7
  • 2016年12月16日 17:08
  • 1561

web安装包中的- iis网站自动配置脚本

cd /d C:\Inetpub\AdminScripts //进入脚本目录 adsutil.vbs create_vserv  w3svc/99 //新建站点 adsutil.vbs set  ...
  • wtnu200
  • wtnu200
  • 2012年04月07日 15:35
  • 2396
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vbscript自动配置IIS
举报原因:
原因补充:

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