ASP - IPGrant

IPGrant

Свойство IPGrant объекта IIsIPSecurity служит для изменения списка IP-адресов, хранящихся в массиве, которым разрешен доступ к серверу.

Синтаксис

объект.IPGrant "IP-адрес,маска_подсети"

Параметры

объект

Объект IIS Admin типа IIsIPSecurity.

IP-адрес

IP-адрес, для которого требуется разрешить доступ к серверу.

маска_подсети

Маска подсети для указанного IP-адреса.

Пример программы

<% 
  Dim SecObj 
  Dim MyIPSec
  Dim IPList, DomainList
  Set SecObj = GetObject("IIS://LocalHost/W3SVC/1") 
  Set MyIPSec = SecObj.IPSecurity
  'Проверочное значение MyIPSec.GrantByDefault.
  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
%> 
 

См. также

IPDeny, DomainDeny, DomainGrant, GrantByDefault, IIsIPSecurity