Rule



При помощи объекта Rule вы можете получить доступ ко всем свойствам и методам правила.

 

Пример использования:

 

'netcom.dll содержит 'NetCom.Remote'

Set Remote = CreateObject("NetCom.Remote")

 

With Remote

       .Host = "192.168.0.1"

       .Port = 42566

       .UserName = "Administrator"

       .Password = "mypass"

       'Подключиться к удаленной службе и запросить объект TrafficFilter

       Set TrafficFilter = .CreateRoot

End With

 

Set Rules = TrafficFilter.Rules

With Rules

       'Вставить новое правило первым в списке

       .Insert 0, "NATRule"

 

       'Найти добавленное правило и установить его свойства

       Set Rule = .FindByName("NATRule")

       With Rule

               .Enabled = False

               'Разрешить пакеты

               .Action = 1

 

               'Транслировать IP источника автоматически

               .ActionsRoute.ChangeSourceIP = True

               .ActionRouteSourceIPAuto = True

 

               'Транслировать Порт источника автоматически

               .ActionsRoute.ChangeSourcePort = True

               .ActionRouteSourcePortAuto = True

 

               'Включить добавление в таблицу NAT

               .ActionRouteNAT = True

 

               'Определить условия

               .ConditionPacketsDirection = 1 'Исходящие пакеты

               .ConditionIPSource.AsString = "192.168.0.5"

               .ConditionIPOperatorSource = 1 'IP источника равен свойству ConditionIPSource

               .ConditionIPRangeDest.AddAsStringRange "192.168.0.0", "192.168.0.255"

               .ConditionIPOperatorDest = 4 'IP источника НЕ в диапазоне, указанном в свойстве ConditionIPRangeDest

 

               .Enabled = True

       End With

 

       'Принудительное сохранение конфигурации

       TrafficFilter.ForceSaveConfig

 

       WScript.Echo "Добавлено правило с именем " & Rule.Name

End With

 

Set Rule = Nothing

Set Rules = Nothing

Set TrafficFilter = Nothing

Remote.Disconnect

Set Remote = Nothing

 

WScript.Echo vbCrLf & "Нажмите любую клавишу..."

WScript.StdIn.Read(1)