Vbscript and "failed"

[Alex Perco]

Hi, 

I don't know why this is not working, always returns "failed". 

strUsername and strPassword are ok.

Any help? Clues?

Thanks in advance.

Function SendToTwitter(strMessage,strUsername, strPassword) 

     Dim objHTTP
     
        Set objHTTP = CreateObject("Microsoft.XMLHTTP") 
      
          objHTTP.open "POST", "http://api.supertweet.net/1.1/statuses/update.json", false, strUsername, strPassword 
          objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
          objHTTP.setRequestHeader "WWW-Authenticate", "Basic"

          objHTTP.send "status=" & strMessage 
           
          SendToTwitter = objHTTP.responseText 
          
          Set objHTTP = nothing 'Release the object 

      
     Set objHTTP = nothing 'Release the object 
      
End Function

[Mr Blog]

Try examining the response to see the HTTP error and other headers/messages. They should tell you what's wrong.