Этот пример использует функцию APIGetUserState и выводит различные параметры тарификации. Скрипт запускается из командной строки в директории scripts.

 

 cscript.exe viewstate.vbs APIPassword UserID /sn:ServerName

 

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

 

---

Set Args = WScript.Arguments.Unnamed

If Args.Count <> 2 Then

 WScript.Echo "??? usage: cscript.exe viewstate.vbs APIPassword UserID /sn:ServerName"        

 WScript.Quit        

End If

 

APIPass = Args(0)

UserID = Args(1)

 

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)

State = Srv.APIGetUserState(UserID)

 

If Not IsArray(State) Then

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

 WScript.Quit        

End If

 

WScript.Echo "Имя" & Chr(9) & State(0)

WScript.Echo "GUID" & Chr(9) & State(1)

WScript.Echo "Группа" & Chr(9) & State(2)

WScript.Echo "Доступ" & Chr(9) & State(3)

WScript.Echo "Сессия" & Chr(9) & State(4)

WScript.Echo "Цена за трафик" & Chr(9) & State(5)

WScript.Echo "Предопл. трафик" & Chr(9) & State(6)

WScript.Echo "Цена за время" & Chr(9) & State(7)

WScript.Echo "Оплачено" & Chr(9) & State(8)

WScript.Echo "Заблокирован" & Chr(9) & State(9)

WScript.Echo "Активен" & Chr(9) & State(10)

WScript.Echo "Причина блокировки" & Chr(9) & Srv.APIBlockReasonAsString(State(11))

WScript.Echo "Старт сессии" & Chr(9) & State(12)

If State(14) Then

 WScript.Echo "Время работы" & Chr(9) & State(13) & " дней"

Else

 WScript.Echo "Время работы" & Chr(9) & State(13) & " часов"

End If

WScript.Echo "Начисленный трафик" & Chr(9) & State(16) & " мбайт"

WScript.Echo "Сумма за трафик" & Chr(9) & State(17)

WScript.Echo "Сумма за время" & Chr(9) & State(18)

WScript.Echo "Баланс" & Chr(9) & State(19)

WScript.Echo "Принято байт" & Chr(9) & State(20)

WScript.Echo "Передано байт" & Chr(9) & State(21)

WScript.Echo "Считано из кэша" & Chr(9) & State(22)

WScript.Echo "Принято байт - почтовый трафик" & Chr(9) & State(23)

 

 

 

---

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

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