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

Previous pageReturn to chapter overviewNext page

 

 Этот скрипт добавляет для всех клиентов группы некоторую сумму на счет. Скрипт запускается из командной строки в директории 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

Next

 

 

 


Текущая страница справки: help.smart-soft.ru/index.html?apidemoaddcash.htm

Сайт разработчиков Traffic Inspector