IIsIPSecurity.GrantByDefault (ADSI)

可以使用 IIsIPSecurity (ADSI) 对象的 GrantByDefault 属性设置如何指定服务器访问权限。GrantByDefault 是布尔值属性,用于确定默认设置是允许所有访问(存在例外)还是拒绝所有访问(存在例外)。如果 GrantByDefault 为 TRUE,则所有 IP 地址和域都可以访问服务器(DomainDenyIPDeny 方法的列表项除外)。如果 GrantByDefault 为 FALSE,则拒绝所有 IP 地址和域访问服务器(DomainGrantIPGrant 方法的列表项除外)。

语法

SecObj.GrantByDefault = Boolean

参数
SecObj
IIsIPSecurity 类型的 IIS ADSI 对象。
Boolean
TRUE 或 FALSE 值。
代码示例

<%

' 切记要启用集成 Windows 身份验证并

' 禁用匿名访问,否则就会出现 Server 500 错误。

Dim SecObj

Dim MyIPSec

' 获取保存默认站点信息的 IIS 对象。

' 它可以是任何站点 root/vdir 或 IIS://LocalHost/W3SVC(对于全局

' 属性)。

Set SecObj = GetObject("IIS://LocalHost/W3SVC/1/Root")

' 获取 IIsIPSecurity 对象。

Set MyIPSec = SecObj.IPSecurity

If (TRUE = MyIPSec.GrantByDefault) Then

Response.Write

"<BR>GrantByDefault was set to TRUE.Setting to FALSE.<BR>"

MyIPSec.GrantByDefault = FALSE

Else 'If (FALSE = MyIPSec.GrantByDefault) Then

Response.Write

"<BR>GrantByDefault was set to FALSE.Setting to TRUE.<BR>"

MyIPSec.GrantByDefault = TRUE

End If

' 设置数据库中的信息

SecObj.IPSecurity = MyIPSec

SecObj.Setinfo

%>

相关主题

© 1997-2003 Microsoft Corporation。保留所有权利