Rules



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

 

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

 

'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, "MyNewRule"

 

       'Принудительно сохранить конфигурацию (конфигурация сохраняется также каждые 3 минуты автоматически)

       TrafficFilter.ForceSaveConfig

 

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

       Set Rule = .FindByName("MyNewRule")

 

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

 

End With

 

Set TrafficFilter = Nothing

Remote.Disconnect

Set Remote = Nothing

 

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

WScript.StdIn.Read(1)