IPGrant

You can use the IPGrant property of the IIsIPSecurity object to edit lists of IP addresses, in an array, that are not allowed access to the server.

Syntax

SecObj.IPGrant "IPAddress,SubnetMask"

Parameters

SecObj

An IIS Admin Object of type IIsIPSecurity.

IPAddress

This is a specific IP address you want to grant access to the server.

SubnetMask

This is the subnet mask for the specified IP address.

Code Example

<% 
  Dim SecObj 
  Dim MyIPSec
  Dim IPList, DomainList
  Set SecObj = GetObject("IIS://LocalHost/W3SVC/1") 
  Set MyIPSec = SecObj.IPSecurity
  'Test value of MyIPSec.GrantByDefault here.
  DomainList = MyIPSec.DomainGrant
  IPList = MyIPSec.IPGrant
  Redim IPList (Ubound(IPList)+1)
  IPList (Ubound(IPList)) = "123.0.0.1,255.255.255.0"
  Redim DomainList (Ubound(DomainList)+1)
  DomainList (Ubound(DomainList)) = "somedomain.com"
  IPSec.DomainGrant = DomainList
  IPSec.IPGrant = IPList
  Set SecObj.IPSecurity = MyIPSec
  Ojb.Setinfo
%> 
 

See Also

IPDeny, DomainDeny, DomainGrant, GrantByDefault, IIsIPSecurity