Il doppio apice è un errore mio in fase di trascrizione nel post, per cui la stringa corretta è questa:

oRequest.Headers.Add("grant_type", "psw&username=usr&password=psw")


Giusto per chiarezza la documentazione in cui ci sono le chiamate da fare mi riporta questo per HTTP request:

POST baseurl/auth/signin HTTP/1.1
Content-Type: application/x-www-form-urlencoded;charset=UTF-8

grant_type=password&username=Utente&password=Password


Questo per HTTP response:

HTTP/1.1 200 OK
Content-Type: application/json;charset=UTF-8
Content-Length: 287

{
"access_token" : "5a74190d2976e5a6",
"token_type" : "bearer",
"expires_in" : 1800,
"refresh_token" : "6643bfe8383daace",
"userName" : "Utente",
"as:client_id" : "Auth",
".issued" : "Tue, 24 Aug 2021 10:35:48 GMT",
".expires" : "Tue, 24 Aug 2021 11:05:48 GMT"
}


Questo in caso di errore:

HTTP/1.1 400 Bad Request
Content-Type: application/json;charset=UTF-8
Content-Length: 101

{
"error" : "invalid_grant",
"error_description" : "The user name or password is incorrect."
}


Ciao

Ciao,
potresti mettere l'url della documentazione Aruba?

Ciao
Ulteriore step: ora mi ritorna uno status code 405
Il 405 è tipicamente un errore lato server ma è più probabile che l'errore viene ritornato perché il metodo HTTP che utilizzo non è consentito da Aruba.

Dalla documentazione, che vi ho inoltrato, le informazioni vanno passate nel "body"; io invece utilizzo:

oRequest.Headers.Add("grant_type", Usr_Xml_csApiPassword & "&username=" & Usr_Xml_csApiUser & "&password=" & Usr_Xml_csApiPassword)

per cui mi sa che passo le informazioni nella "query string" anziché nella "request body"

Come faccio ad impostare la "request body" nell'oggetto oRequest che è un Net.Http.HttpRequestMessage ?

Grazie

Esatto. Prima del tuo post ho usato l'istruzione come quella da te suggerita e funziona.
Ora mi ritorna 200 e fino qui va bene.

Ora c'è il problema di leggere la risposta; a seguire la routine che ho creato e dove l'oggetto oContent ritorna Nothing

Public Async Sub SubSignin()
Dim oClient As New Net.Http.HttpClient
Dim oRequest As New Net.Http.HttpRequestMessage
Dim oContent As Net.Http.HttpContent

Try
oRequest.RequestUri = New Uri(Usr_Xml_csUrlAutDemo & "/auth/signin")
oRequest.Content = New Net.Http.StringContent("username=" & Usr_Xml_csApiUser & "&password=" & Usr_Xml_csApiPassword & "&grant_type=" & Usr_Xml_csApiPassword)

Try
oResponseMessage = Await oClient.SendAsync(oRequest)
Catch ex As Exception
End Try

oContent = oResponseMessage.Content

Catch ex As Exception
Beep()
End Try
End Sub