Вывод состояния клиента |
|
Этот пример использует функцию 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