VB.NET

Adobe Analytics Reporting API (1.4)

See more HTTP Misc Examples

Demonstrates a simple POST of JSON to the Adobe Analytics Reporting API (v1.4) VB.NET

Dim success As Boolean = False

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' In this example, replace "rsid" with your report suite id, and update the URL to use the correct endpoint
Dim url As String = "https://api.omniture.com/admin/1.4/rest/?method=Report.Queue"

Dim json As New Chilkat.JsonObject
json.UpdateString("reportDescription.reportSuiteID","rsid")
json.UpdateString("reportDescription.dateGranularity","hour")

Dim http As New Chilkat.Http

Dim dt As New Chilkat.CkDateTime
dt.SetFromCurrentSystemTime()
Dim timecreated As String = dt.GetAsTimestamp(False)

Dim prng As New Chilkat.Prng
Dim nonce As String = prng.GenRandom(12,"hex")

Dim secret As String = "SECRET"

Dim sb As New Chilkat.StringBuilder
sb.Append(nonce)
sb.Append(timecreated)
sb.Append(secret)

Dim crypt As New Chilkat.Crypt2
crypt.HashAlgorithm = "sha1"
crypt.EncodingMode = "base64"
Dim digest As String = crypt.HashStringENC(sb.GetAsString())

Dim sbNonce As New Chilkat.StringBuilder
sbNonce.Append(nonce)
sbNonce.Encode("base64")

sb.Clear()
sb.Append("UsernameToken Username=""USERNAME"", PasswordDigest=""")
sb.Append(digest)
sb.Append(""", Nonce=""")
sb.Append(sbNonce.GetAsString())
sb.Append(""", Created=""")
sb.Append(timecreated)
sb.Append("""")

Debug.WriteLine(sb.GetAsString())

http.SetRequestHeader("X-WSSE",sb.GetAsString())

Dim resp As New Chilkat.HttpResponse
success = http.HttpJson("POST",url,json,"text/json",resp)
If (success = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Http Status code: " & resp.StatusCode)
Debug.WriteLine("JSON response:")
Debug.WriteLine(resp.BodyStr)