Para copiar accesos directos es necesario utilizar el objeto File Shell. Las siguientes secuencias de comandos muestran cómo utilizarlo para crear accesos directos.

// JScript.
Shell = new ActiveXObject("WScript.Shell");
RutaEscritorio = Shell.SpecialFolders("Desktop");
vinculo = Shell.CreateShortcut(RutaEscritorio + "\\test.lnk");
vinculo.Arguments = "1 2 3";
vinculo.Description = "prueba de acceso directo";
vinculo.HotKey = "CTRL+ALT+SHIFT+X";
vinculo.IconLocation = "foo.exe,1";
vinculo.TargetPath = "c:\\blah\\foo.exe";
vinculo.WindowStyle = 3;
vinculo.WorkingDirectory = "c:\\blah";
vinculo.Save();

' VBScript.
Set Shell = CreateObject("WScript.Shell")
RutaEscritorio = Shell.SpecialFolders("Desktop")
Set vinculo = Shell.CreateShortcut(RutaEscritorio & "\test.lnk")
vinculo.Arguments = "1 2 3"
vinculo.Description = "prueba de acceso directo"
vinculo.HotKey = "CTRL+ALT+SHIFT+X"
vinculo.IconLocation = "foo.exe,1"
vinculo.TargetPath = "c:\blah\foo.exe"
vinculo.WindowStyle = 3
vinculo.WorkingDirectory = "c:\blah"
vinculo.Save

Consulte también

Administrar los accesos directos