При помощи объекта 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)