Problem creating a login user via RESTful API in VB.NET

Problem creating a login user via RESTful API in VB.NET

Hello all, I have the below code with which I am trying to create a login user via the RESTful API in VB.NET. The API returns that this is an invalid JSON but when I validate the JSON via any online validation site it comes back as valid. Does anyone have an idea as far as why it may be failing?

  1. ' Creates the JSON web request and returns the results
  2. Private Function SendRequest(uri As Uri, jsonDataBytes As Byte(),contentType As String, method As String) As String
  3. ' Create initial request
  4. Dim req As WebRequest = WebRequest.Create(uri)
  5. req.ContentType = contentType
  6. req.Method = method
  7. req.ContentLength = jsonDataBytes.Length

  8. ' Establish request stream
  9. Dim stream = req.GetRequestStream()
  10. stream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
  11. stream.Close()

  12. ' Retrieve response
  13. Dim response = req.GetResponse().GetResponseStream()

  14. ' Parse response
  15. Dim reader As New StreamReader(response)
  16. Dim res = reader.ReadToEnd()
  17. reader.Close()
  18. response.Close()

  19. ' Return JSON result
  20. Return res
  21. End Function


  22. Public Function CCC_Test_API_AddUser() As String
  23. CCC_Test_API_AddUser = Nothing
  24. Dim jsonString As String
  25. jsonString = "{""operation"":{""Details"":{""USERNAME"":""ThisIsATest"",""FIRSTNAME"":""Test"",""LASTNAME"":""User"",""EMAIL"":""TUser@test.com"",
  26. ""PHONEFACTOR_USERNAME"":""ThisIsATest""}}}"

  27. ' Work around to skirt SSL Certificate Validation Checking
  28. System.Net.ServicePointManager.ServerCertificateValidationCallback = _
  29. Function(se As Object, _
  30. cert As System.Security.Cryptography.X509Certificates.X509Certificate, _
  31. chain As System.Security.Cryptography.X509Certificates.X509Chain, _
  32. sslerror As System.Net.Security.SslPolicyErrors) True

  33. Dim siteUri As New Uri("https://server:7272/restapi/json/v1/user?AUTHTOKEN=F6C0CD37-5BB9-44BE-8331-FA4BC64C6071&INPUT_DATA=")
  34. Dim data = Encoding.UTF8.GetBytes(jsonString)

  35. Dim result_post = SendRequest(siteUri, data, "text/json", "POST")
  36. Return result_post

  37. End Function
                New to ADManager Plus?

                  New to ADSelfService Plus?