Объект Scripter может быть использован для быстрого выполнения нескольких операций управления службой за один вызов. Другими словами вы создаете удаленный объект Scripter, передаете ему код, который выполняется службой.

Как использовать:

Создайте текстовый файл "ScripterCode.txt", содержащий код:

'================== START ===============

'Эта процедура создает 10 правил

Sub Create_10_Rules

       Dim I

       For I = 1 To 10

           TrafficFilter.Rules.Insert 0, "MyNewRule" & I

       Next

End Sub

'=================== END ================

Создайте файл "TestScripter.vbs", который содержит код:

'================== START ===============

Const SNetComRemote = "NetCom.Remote"

Dim Scripter, Remote, Root

'Функция загружает содержимое текстового файла

Function ReadText(AFileName)

       Set F = CreateObject("Scripting.FileSystemObject").OpenTextFile(AFileName, 1)

       ReadText = F.ReadAll

       F.Close

End Function

Set Remote = CreateObject(SNetComRemote)

With Remote

       .Host = "127.0.0.1"

       .UserName = "Administrator"

       .Password = "MyPassword"

       Set Root = .CreateRoot

End With

With Root

       Set Scripter = .CreateScripter

       Scripter.AddCode ReadText("ScripterCode.txt")

       Scripter.AsObject.Create_10_Rules

End With

Set Scripter = Nothing

Set Root = Nothing

Set Remote = Nothing

'=================== END ================

Поместите созданные два файла  в одну директорию и запустите TestScripter.vbs так:

"cscript.exe TestScripter.vbs"