Добавление оплаты для группы клиентов

Этот скрипт добавляет для всех клиентов группы некоторую сумму на счет. Скрипт запускается из командной строки в директории scripts.

cscript.exe addcash.vbs APIPassword GroupID Cash /sn:ServerName

Здесь

APIPassword - пароль доступа.

GroupID - GUID или имя группы.

Cash - добавляемая сумма.

ServerName - имя сервера - необязательный параметр - задается при запуске скрипта с удаленного компьютера.

Set Args = WScript.Arguments.Unnamed

If Args.Count <> 3 Then

WScript.Echo "??? usage: cscript.exe addcash.vbs APIPassword GroupID Cash /sn:ServerName"

WScript.Quit

End If

APIPass = Args(0)

Obj = Args(1)

Cash = Args(2)

If WScript.Arguments.Named.Exists("sn") Then

ServName = WScript.Arguments.Named.Item("sn")

Set Srv = CreateObject("TrafInsp.TrafInspAdmin",ServName)

Else

Set Srv = CreateObject("TrafInsp.TrafInspAdmin")

End If

Srv.APILogon(APIPass)

UserList = Srv.ApiGetBillProp(3, Obj)

' Получили список клиентов группы

' Проверяем, что это таблица - двухмерный массив

If Not IsArray(UserList) Or Not IsArray(UserList(0)) Then

WScript.Echo "Нет данных"

WScript.Quit

End If

For I = 0 To UBound(UserList, 1)

User = UserList(I)

' Получили строку - описание пользователя

UserID = User(1)

UserState = Srv.APIGetUserState(UserID)

' Считали текущее состояние пользователя - надо узнать сумму на счете

Cash0 = UserState(8)

' Добавляем сумму на счет, состояние пользователя не меняем. Добавьте свой комментарий для записи в журнале.

Srv.APISetUserState UserID, Cash0+Cash, -1, "Script", "Пример"

WScript.Echo "Клиент " & User(0) & " добавлено " & Cash & " было " & Cash0 & " стало " & Cash0+Cash