Пример VBScript:

Const SNetComRemote = "NetCom.Remote"

Dim Remote, Root

Set Remote = CreateObject(SNetComRemote)

With Remote

       .Host = "192.168.0.1"

       .UserName = "Administrator"

       .Password = "MyPassword"

       Set Root = .CreateRoot

End With

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

'и установить действие над пакетом "Разрешить"

With Root.Rules

       .Insert 0, "MyNewRule"

       .FindByName("MyNewRule").Action = 1

End With

'Сохранение конфигурации

Root.ForceSaveConfig

Set Root = Nothing

Set Remote = Nothing