Hi -- sure am happy to share -- note that it looks like I have it working now... I dont know WHY but - my original code was using MSXML2.XMLHTTP. After reading your response I started toying with WinHttp.WinHttpRequest.5.1. I will admit I truly dont know the differences between the two object types - but switching to WinHttp.WinHttpRequest.5.1 looks to have done the trick... I will post the code that appears to be working instead of what was NOT working... The only significant difference was the use of the other object type.....
Two things to note - the funky URL is because I am currently using this to talk to a lab environment built in CML.... Once i have everything setup and working as expected, I'll talk to our production vmanage... Also - when I switched to the new object, I stopped getting the other error but got a message about bad cert -- so you will see I am setting up to ignore the cert error (.option(4) = &H3300)
Appreciate your help.... May come back later if i find more issues, but for now I am on the right track...
--
Sub test()
Dim http As Object
Dim url As String
Dim username As String
Dim password As String
Dim jsonBody As String
Dim response As String
Dim token As String
' Initialize variables
url = "https://127.0.0.1:8443/j_security_check"
username = "xxxx"
password = "yyyy"
' Create JSON body for the request
jsonBody = "j_username=" & username & "&j_password=" & password
' Create the HTTP object
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
' Send the POST request
With http
.Open "POST", url, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Option(4) = &H3300
.send jsonBody
'response = .responseText
If .Status = 200 Then
' Extract the token from the response headers
token = http.getResponseHeader("Set-Cookie")
MsgBox "Authentication successful! Token: " & token
Else
MsgBox "Authentication failed. Status: " & http.Status & " Response: " & response
End If
'
End With
End Sub
