VBA Excel à l'aide de XMLHTTP avec Siteminder site Sécurisé

Je suis complètement nouveau à l'aide de XMLHTTP et d'expérimenter avec la tentative de téléchargement d'un rapport à partir de notre site internet à l'aide de VBA Excel. Le problème me semble être en cours d'exécution en est que le site est protégé par Siteminder. Je pense que j'ai besoin d'utiliser un XMLHTTP.Ouverte à OBTENIR, mais de toute façon j'ai essayer tout ce que je viens de paraître à obtenir est la Siteminder code HTML. Donc, je suis en train de la première utilisation d'un poste pour envoyer mon nom d'utilisateur et mot de passe pour Siteminder quelque chose comme:

Function PostXmlData(vUrl As String, UserName As String, Password As String, xmlText     
As String
Dim XMLHttp As Object
Set XMLHttp = CreateObject("MSXML2.XMLHTTP")
XMLHttp.Open "POST", vUrl, False, UserName, Password
XMLHttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"   

XMLHttp.send (xmlText)
PostXmlData = XMLHttp.responseText
End Function

Sub Posttest ()
Dim add As String
Dim User As String
Dim Pass As String
Dim send As String
Dim ret As Variant

add = "https://mycompanywebsite.com/apps/application/Main/"
User = "username"
Pass = "password"
Send="DashboardId=http://mycompanywebsite.com/DAVCatalog/Dashboards/Teams/Client%20_
Extranet%20AM"

ret = PostXmlData(add, User, Pass, send)
End Sub

Suis-je sur la bonne voie ou est-ce même pas possible? Toutes les suggestions sont grandement appréciés, ou si il y a un site que quelqu'un pourrait m'indiquer que ce serait utile. Merci.