**Example:**
Sub Disconnect()
Dim XMLHttpRequestObj, ALMServer
Set XMLHttpRequestObj = CreateObject(''Msxml2.ServerXMLHTTP.6.0'')
ALMServer = ''http://localhost:8080/qcbin'' ''<--No trailing slash
XMLHttpRequestObj.open ''GET'', ALMServer & ''/authentication-point/logout'', False
XMLHttpRequestObj.setRequestHeader ''Accept'',''application/xml''
XMLHttpRequestObj.send
MsgBox ''--- Disconnect ---'' & vbCrLf & _
''Status Code : '' & XMLHttpRequestObj.status & vbCrLf & _
''Status Text : '' & XMLHttpRequestObj.statusText & vbCrLf & _
''-------------------'' & vbCrLf & vbCrLf & _
''Response Text : '' & vbCrLf & XMLHttpRequestObj.responseText, , ''Disconnect''
Set XMLHttpRequestObj = Nothing
End Sub