' Code: Dmitry Stremkouski 
' Date: 5.12.2006
' License: GPL
' Usage: just run.

' example:
' cscript //nologo MoveToAnotherServer.vbs
' note:
' exchangeServer1 must be Exchange server, exchangeServer2 must contain username2's mailbox.
' superv1sor ought have access rights to username1´s and username2's mailboxes

strURL = "http://exchangeServer1/exchange/username1/%D0%92%D1%85%D0%BE%D0%B4%D1%8F%D1%89%D0%B8%D0%B5/with%20atta.EML"
strDestURL = "http://exchangeServer2/exchange/username2/%D0%92%D1%85%D0%BE%D0%B4%D1%8F%D1%89%D0%B8%D0%B5/with%20atta.EML"
dName = "with%20atta.EML"
myMove = moveToSecSRV(dName,strURL)

function moveToSecSRV(displayname,href)
set req = createobject("microsoft.xmlhttp")
set req2 = createobject("microsoft.xmlhttp")
req.open "GET", href, false, "superv1sor", "superp@ssw0rd"
req2.open "PUT", strDestURL, false, "superv1sor", "superp@sswo0rd"

req.setRequestHeader "Translate","f"
req.send

req2.setRequestHeader "Destination", DestinationUrl

set stm = createobject("ADODB.Stream")
stm.open
msgstring = req.responsetext

stm.type = 2
stm.Charset = "x-ansi"
stm.writetext msgstring,0
stm.Position = 0
stm.type = 1
req2.send stm

set stm = nothing
set req = nothing
set req2 = nothing
end function