Data export

From Awesome Baozam
Revision as of 11:12, 12 August 2016 by Baya (Talk | contribs) (VBS script)

Jump to: navigation, search

Для получения данных по запросу вы можете использовать УРЛ

https://baozam.net/index.php?action=csv&hosts=<HOSTID>&period=<PERIOD_IN_SECONDS>&stime=<START_UNIXTIME>&step=<STEP>

для аутентификации необходимо передать логин и пароль в (только) POST.

STIME - unixtime с которого начинается период. Если = 0, то начало периода будет отсчитано от текущего времени.

STEP - целое число секунд. или предопределенные значения

  1. g1h - почасово
  2. g1d - по дням
  3. g1w - по неделям
  4. g1m - по месяцам

CURL пример

HOST=baozam.net
DEVICE=
PERIOD=$(( 7 * 24 * 3600 ))
STIME=0
STEP=g1h
USER=
PWD=

curl "https://$HOST/index.php?action=csv&hosts=$DEVICE&period=$PERIOD&stime=$STIME&step=$STEP" \
    -H "Host: $HOST" --compressed \
    -d "name=$USER" -d "password=$PWD"

VBS script

HTTPDownload "https://baozam.net/index.php?action=csv&hosts=<DEVICE>&period=<PERIOD>&stime=<STIME>&step=<STEP>", "E:\baozam.csv", <USR>,  <PWD>
Sub HTTPDownload( myURL, myFile, myUser, myPwd )

' This Sub downloads the FILE specified in myURL to the file specified in myFile.

' Based on a script found on the Thai Visa forum
' http://www.thaivisa.com/forum/index.php?showtopic=21832
' by Rob van der Woude
' http://www.robvanderwoude.com

    ' Standard housekeeping
    Dim i, objFile, objFSO, objHTTP
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    ' Create a File System Object
    Set objFSO = CreateObject( "Scripting.FileSystemObject" )

    ' Create or open the target file
    Set objFile = objFSO.OpenTextFile( myFile, ForWriting, True )

    ' Create an HTTP object
    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

    ' Download the specified URL
    objHTTP.Open "POST", myURL, False
    objHTTP.setRequestHeader "Host", "baozam.net"
    objHTTP.Send( "name=" + myUser + "&password=" + myPwd )

    ' Write the downloaded byte stream to the target file
    For i = 1 To LenB( objHTTP.ResponseBody )
        objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
    Next

    ' Close the target file
    objFile.Close( )
End Sub