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)