虚拟主机教程

‘本脚本用于修复所有站点的路径，同理可以统一修复其他参数。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Set objIIS=GetObject("IIS://localhost/w3svc")
For Each objSite In objIIS
If objSite.Class = "IIsWebServer" Then
siteId = objSite.name
Set nowSite=GetObject("IIS://localhost/w3svc/" & siteId & "/ROOT")
cPath=nowSite.path
if left(cPath,1)="\" then
cPath="D:\wwwroot" & cPath
wscript.echo "正在修改路径为 " & cPath
nowSite.path=cPath
nowSite.SetInfo
end if
set nowSite=nothing
End If
Next
set objIIS=nothing

nowSite.AppPoolID=”Pools1″ 用这个可以设置程序池
取得站点绑定的域名：
Set VHost=Getobject(“IIS://localhost/w3svc/” & HostID)
取得绑定域名：
AllBinds=VHost.ServerBindings : for each SiteBind in AllBinds
取得站点名：VHost.ServerComment
日志目录： LogFileDirectory
最大带宽： MaxBandwidth
最大连接： MaxConnections
自动启动： ServerAutoStart
匿名用户：AnonymousUserName
匿名密码：AnonymousUserPass

Set VHost=Getobject(“IIS://localhost/w3svc/” & HostID & “/root”)
脚本权限：AccessFlags
应用程序名：AppFriendlyName
所在池名：AppPoolId
默认文档：DefaultDoc
路径：Path
脚本映射：ScriptMaps

———————————————————————————————————————————
Function GetSiteID(SiteName) ‘此函数可以通过ftp查找站点id
on error resume next
Set objIIS=GetObject(“IIS://localhost/w3svc”)
for each AA in objIIS
if AA.Class=”IIsWebServer” then
Set newObj=GetObject(“IIS://localhost/w3svc/” & AA.Name)
if newObj.ServerComment=SiteName then
GetSiteID=AA.Name
exit Function
end if
Set newObj=nothing
end if
next
Set objIIS=nothing
GetSiteID=-1
end function

Sub SetIpSecurity(s_comment) ‘此过程为一个设置ip限制的示例
on error resume next
s_id=GetSiteID(s_comment)
if s_id<0 then
Exit Sub
end if
set objIIS=GetObject(“IIS://localhost/w3svc/” & s_id & “/ROOT”)
set objSec=objIIS.IpSecurity
oldList=objSec.IpGrant
Index=Ubound(oldList)+1
reDim preserve oldList(Index)
oldList(Index)=”192.168.1.80,255.255.255.255″
objSec.IpGrant=oldList
objIIS.IpSecurity=objSec
objIIS.SetInfo
end Sub