VB.net Code to create Documwnts using Documentums REST Model 2

 Imports System.IO

Imports System.Net.Http

Imports System.Net.Http.Headers

Public Class DocumentumRESTClient

    Private Const DocbaseName As String = "myDocbase"

    Private Const Username As String = "myUsername"

    Private Const Password As String = "myPassword"

    Private Const RestUrl As String = "http://mydocbase.com/dctm-rest"

    Public Async Function CreateDocumentAsync(ByVal documentName As String, ByVal documentContent As Byte()) As Task(Of String)

        Dim accessToken = Await GetAccessTokenAsync()

        Dim docId = Await CreateDocIdAsync(accessToken, documentName)

        Await CreateDocContentAsync(accessToken, docId, documentContent)

        Return docId

    End Function

    Private Async Function GetAccessTokenAsync() As Task(Of String)

        Using client As New HttpClient()

            Dim authHeader = New AuthenticationHeaderValue("Basic", Convert.ToBase64String(Encoding.ASCII.GetBytes($"{Username}:{Password}")))

            client.DefaultRequestHeaders.Authorization = authHeader

            Dim response = Await client.PostAsync($"{RestUrl}/authentication/token", Nothing)

            response.EnsureSuccessStatusCode()

            Dim jsonResponse = Await response.Content.ReadAsStringAsync()

            Dim tokenResponse = JsonConvert.DeserializeObject(Of TokenResponse)(jsonResponse)

            Return tokenResponse.AccessToken

        End Using

    End Function

    Private Async Function CreateDocIdAsync(ByVal accessToken As String, ByVal documentName As String) As Task(Of String)

        Using client As New HttpClient()

            client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", accessToken)

            client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))

            Dim content = New StringContent(JsonConvert.SerializeObject(New With {.properties = New List(Of DocumentumProperty) From {New DocumentumProperty With {.Name = "object_name", .Value = documentName}}}), Encoding.UTF8, "application/json")

            Dim response = Await client.PostAsync($"{RestUrl}/repositories/{DocbaseName}/objects", content)

            response.EnsureSuccessStatusCode()

            Dim jsonResponse = Await response.Content.ReadAsStringAsync()

            Dim objectResponse = JsonConvert.DeserializeObject(Of ObjectResponse)(jsonResponse)

            Return objectResponse.Object.Id

        End Using

    End Function

    Private Async Function CreateDocContentAsync(ByVal accessToken As String, ByVal docId As String, ByVal documentContent As Byte()) As Task

        Using client As New HttpClient()

            client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", accessToken)

            client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))

            Dim content = New ByteArrayContent(documentContent)

            content.Headers.ContentType = New MediaTypeHeaderValue("application/octet-stream")

            Dim response = Await client.PutAsync($"{RestUrl}/repositories/{DocbaseName}/objects/{docId}/contents", content)

            response.EnsureSuccessStatusCode()

        End Using

    End Function

End Class

Public Class TokenResponse

    Public Property AccessToken As String

    Public Property ExpiresIn As Integer

    Public Property TokenType As String

End Class

Public Class DocumentumProperty

    Public Property Name As String

    Public Property Value As Object

End Class

Public Class ObjectResponse

    Public Property Object As ObjectInfo

End Class

Public Class ObjectInfo

    Public Property Id As String

End Class