Admin Interface REST API VBScript example

base_uri = http://server:8080/mcid/api/v1/
user="<my api user>"
pw = "<my api key>"
auth = "Basic " & Base64Encode(user & ":" & pw)
Set http=createObject("MSXML2.ServerXMLHTTP.3.0")

'======= LOGIN ========
endPoint = base_uri & "login"
http.open "GET", endPoint, False
http.setRequestHeader "Content-Type","application/json"
http.setRequestHeader "Authorization", auth
http.send endpoint
If http.Status = 200 Then
    msgbox "RESPONSE : " & http.responseText
    responseText = http.responseText
    arr_response = Split(responseText)
    sessionid = arr_response(UBound(arr_response))
Else
    msgbox "ERRCODE : " & http.status
End If
WScript.Echo http.status & " " & http.responseText
WScript.Echo sessionid

'======= SYSTEMSTATUS =======
endPoint = base_uri & "systemstatus"
http.open "GET", endPoint, False
http.setRequestHeader "Content-Type","application/json"
http.setRequestHeader "Cookie", "x=y" 'het eerste cookie wordt ignored ??
http.setRequestHeader "Cookie", "JSESSIONID=" & sessionid
http.send endpoint
If http.Status = 200 Then
    msgbox "RESPONSE : " & http.responseText
    responseText = http.responseText
Else
    msgbox "ERRCODE : " & http.status
End If
WScript.Echo http.status & " " & http.responseText


'======= LOGOUT =======
endPoint = base_uri & "logout"
http.open "GET", endPoint, False
http.setRequestHeader "Content-Type","application/json"
http.setRequestHeader "Cookie", "x=y" 'het eerste cookie wordt ignored ??
http.setRequestHeader "Cookie", "JSESSIONID=" & sessionid
http.send endpoint
If http.Status = 200 Then
    msgbox "RESPONSE : " & http.responseText
    responseText = http.responseText
Else
    msgbox "ERRCODE : " & http.status
End If
WScript.Echo http.status & " " & http.responseText

'Base64 Encoding Helper Function
Function Base64Encode(sText)
    Dim oXML, oNode

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")
    oNode.dataType = "bin.base64"
    oNode.nodeTypedValue =Stream_StringToBinary(sText)
    Base64Encode = oNode.text
    Set oNode = Nothing
    Set oXML = Nothing
End Function

'Base64 Decoding Helper Function
Function Base64Decode(ByVal vCode)
    Dim oXML, oNode

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")
    oNode.dataType = "bin.base64"
    oNode.text = vCode
    Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
    Set oNode = Nothing
    Set oXML = Nothing
End Function

'Stream_StringToBinary Function
'2003 Antonin Foller, http://www.motobit.com
'Text - string parameter To convert To binary data
Function Stream_StringToBinary(Text)
  Const adTypeText = 2
  Const adTypeBinary = 1

  'Create Stream object
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")

  'Specify stream type - we want To save text/string data.
  BinaryStream.Type = adTypeText

  'Specify charset For the source text (unicode) data.
  BinaryStream.CharSet = "us-ascii"

  'Open the stream And write text/string data To the object
  BinaryStream.Open
  BinaryStream.WriteText Text

  'Change stream type To binary
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeBinary

  'Ignore first two bytes - sign of
  BinaryStream.Position = 0

  'Open the stream And get binary data from the object
  Stream_StringToBinary = BinaryStream.Read

  Set BinaryStream = Nothing
End Function

'Stream_BinaryToString Function
'2003 Antonin Foller, http://www.motobit.com
'Binary - VT_UI1 | VT_ARRAY data To convert To a string 
Function Stream_BinaryToString(Binary)
  Const adTypeText = 2
  Const adTypeBinary = 1

  'Create Stream object
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")

  'Specify stream type - we want To save binary data.
  BinaryStream.Type = adTypeBinary

  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.Write Binary

  'Change stream type To text/string
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeText

  'Specify charset For the output text (unicode) data.
  BinaryStream.CharSet = "us-ascii"

  'Open the stream And get text/string data from the object
  Stream_BinaryToString = BinaryStream.ReadText
  Set BinaryStream = Nothing
End Function