IIsIPSecurity.GrantByDefault (ADSI)

The GrantByDefault method indicates if access to an IIS resource is granted to all IP addresses and domains by default. To specify exceptions, use the other methods in this interface.

[Visual Basic]
objIIsIPSecurity.GrantByDefault = <True | False>

Code Example

' Remember to enable Integrated Windows authentication and
' disable Anonymous Access, or you will get a Server 500 error.
Dim SecObj
Dim MyIPSec
Dim IPList
' Get the IIS object that holds the info for the default site.
' This could be any site root/vdir, or IIS://LocalHost/W3SVC for global
' properties.
Set SecObj = GetObject("IIS://LocalHost/W3SVC/1/Root")
' Get the IIsIPSecurity object.
Set MyIPSec = SecObj.IPSecurity
' Make sure GrantByDefault=FALSE or your changes will not count.
If (TRUE = MyIPSec.GrantByDefault) Then
"<BR>GrantByDefault was not FALSE. Setting to FALSE.<BR>"
MyIPSec.GrantByDefault = FALSE
End If
' Get the Grant list as an array, and add your newly allowed IP address
IPList = MyIPSec.IPGrant
Redim IPList (Ubound(IPList)+1)
IPList (Ubound(IPList)) = ","
' Set the new lists back in the metabase in two stages, and then set
' the metabase.
MyIPSec.IPGrant = IPList
SecObj.IPSecurity = MyIPSec
Response.Write "The IPRestriction has been set<BR>"


Client: Requires Windows XP Professional, Windows 2000 Professional, or Windows NT Workstation 4.0.

Server: Requires Windows Server 2003, Windows 2000 Server, or Windows NT Server 4.0.

Product: IIS

See Also


IIsIPSecurity (ADSI)

Using ADSI to Configure IIS