**Example**

Sub Authenticate_AuthHeader()

Dim XMLHttpRequestObj, ALMServer, ALMAuthString

Set XMLHttpRequestObj = CreateObject(''Msxml2.ServerXMLHTTP.6.0'')

ALMServer = ''http://localhost:8080/qcbin'' ''<--No trailing slash ''Base64 encoded string of user:pass Example: Base64(''alex_alm:'') is YWxleF9hbG06
ALMAuthString = ''YWxleF9hbG06''

XMLHttpRequestObj.open ''GET'', ALMServer & ''/authentication-point/authenticate'', False
XMLHttpRequestObj.setRequestHeader ''Content-Type'',''application/xml''
XMLHttpRequestObj.setRequestHeader ''Authorization'',''Basic '' & ALMAuthString
XMLHttpRequestObj.send

MsgBox ''-- Authenticate Header --'' & vbCrLf & _
''Status Code : '' & XMLHttpRequestObj.status & vbCrLf & _
''Status Text : '' & XMLHttpRequestObj.statusText & vbCrLf & _
''---------------------------'' & vbCrLf & vbCrLf & _
''Response Text : '' & vbCrLf & XMLHttpRequestObj.responseText, , ''Authenticate''

Set XMLHttpRequestObj = Nothing

End Sub