000029862 - How to generate a Session Token with REST API in RSA Archer

1. Build out the body using a JSON object with the Name/Value pairs.

Dim oBody As New JObject(New JProperty("InstanceName", txtInstanceName.Text), _
                        New JProperty("UserName", txtArcherUser.Text), _
                        New JProperty("UserDomain", ""), _
                        New JProperty("Password", txtArcherPassword.Text))

2. Call the RestPost function with the login Url and pass the JSON object with values.

Dim results As String = RestPost(txtInstanceUrl.Text, "api/core/security/login", "POST", "", "json", 200, oBody.ToString)

3. Parse out the Session Token from the results.

txtSessionToken.Text = JObject.Parse(results)("RequestedObject")("SessionToken").ToString

Private Shared Function RestPost(sBaseUri As String, sApi As String, sVerb As String, sSession As String, sType As String, iCode As Integer, sBody As String) As String
        Dim sHeader As String = ""
        Dim sUri As String = ""
        Dim sAccept As String = "application/"
        ' Construct the Uri 
        sUri = sBaseUri & sApi
        Dim vUri As New Uri(sUri)
        Dim vClient As New HttpClient
        vClient.BaseAddress = vUri
        ' Construct the request header and body 
        If sSession <> "" Then
            sHeader = "Archer session-id=""" & sSession & """"
            vClient.DefaultRequestHeaders.TryAddWithoutValidation("Authorization", sHeader)
        End If
        sAccept += sType
        Dim vContent As StringContent = New System.Net.Http.StringContent(sBody, Encoding.UTF8, "application/json")
        vClient.DefaultRequestHeaders.TryAddWithoutValidation("Accept", sAccept)
        If sVerb.ToUpper() = "GET" Then
            vClient.DefaultRequestHeaders.TryAddWithoutValidation("X-Http-Method-Override", "GET")
        End If
        ' Post the request, get results 
        Dim vResponse As HttpResponseMessage = vClient.PostAsync(vUri, vContent).Result
        Dim sStatus As String = vResponse.StatusCode.ToString()
        Dim sResult As String = vResponse.Content.ReadAsStringAsync().Result
        Dim statusCode As HttpStatusCode = vResponse.StatusCode
        Dim iCodeNumber As Integer = CInt(statusCode)
        ' Check if the returned Status Code is what was expected
        If iCodeNumber <> iCode Then
            'Debug.WriteLine(iCodeNumber.ToString())
            'Debug.WriteLine(sResult)
            MsgBox("REST Failure: (" & statusCode & ") " & statusCode.ToString)
        Else
            Debug.WriteLine(sResult)
        End If
        Return sResult
    End Function

txtResults.Text = JObject.Parse(results).ToString

{
  "Links": [],
  "RequestedObject": {
    "SessionToken": "BE64F897C383B1C0654DD6337CDAD5CB",
    "InstanceName": "Archer",
    "UserId": 362,
    "ContextType": 0,
    "UserConfig": {
      "TimeZoneId": "Central Standard Time",
      "TimeZoneIdSource": 1,
      "LocaleId": "en-US",
      "LocaleIdSource": 1,
      "LanguageId": 1,
      "LanguageIdSource": 1,
      "PlatformLanguageId": 1,
      "PlatformLanguageIdSource": 1
    },
    "Translate": false
  },
  "IsSuccessful": true,
  "ValidationMessages": []
}