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)