Well, It is working now, used an other script, but that was also not working I had an errorcode 403
This means that I send duplicate message's. I changed the message and now It is working
strMessage = GetPropertyValue("System Time.Time")
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "POST", _
"
http://api.supertweet.net/1/statuses/update.xml", _
False, _
strUserName, _
strSuperTweetPassword
objXML.setRequestHeader _
"Content-Type", _
"application/x-www-form-urlencoded "
objXML.Send "status=" & strmessage
SetPropertyValue "Twitter.Returned", objxml.responsetext