Cómo crear un acceso directo de escritorio con el Host de scripts de Windows

En este artículo se describe cómo crear accesos directos de escritorio mediante microsoft Windows Script Host (WSH) desde Visual FoxPro.

Versión original del producto:   Windows 10: todas las ediciones, Windows Server 2012 R2
Número KB original:   244677

Resumen

WSH es una herramienta que permite ejecutar Microsoft Visual Basic Scripting Edition y JScript de forma nativa en el sistema operativo base, ya sea en Windows 95 o Windows NT 4.0. También incluye varios métodos de automatización COM que le permiten realizar varias tareas fácilmente a través del modelo de objetos de host de script de Windows. Microsoft Windows Script Host está integrado en Windows 98, Windows 2000 y versiones posteriores del sistema operativo Windows. Está disponible para Windows NT 4.0 mediante la instalación del paquete de opciones de Windows NT 4.0. Para descargar esta herramienta, visite Scripting.

Ejemplos para crear un acceso directo de escritorio con WSH

Este programa muestra cómo usar el Host de scripts de Windows para crear un acceso directo en el escritorio de Windows. Para ejecutar este ejemplo, debe tener instalado el Host de scripts de Windows en el equipo. Para ejecutar uno de estos ejemplos, copie el código siguiente en un nuevo archivo de programa y ejecutarlo.

Ejemplo 1

WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk")
oMyShortcut.WindowStyle = 3 &&Maximized 7=Minimized 4=Normal
oMyShortcut.IconLocation = "C:\myicon.ico"
OMyShortcut.TargetPath = "%windir%\notepad.exe"
oMyShortCut.Hotkey = "ALT+CTRL+F"
oMyShortCut.Save

Ejemplo 2: Agregar un argumento de línea de comandos

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortCut= WshShell.CreateShortcut(strDesktop+"\Foxtest.lnk")
oMyShortCut.WindowStyle = 7 &&Minimized 0=Maximized 4=Normal
oMyShortcut.IconLocation = home()+"wizards\graphics\builder.ico"
oMyShortCut.TargetPath = "c:\Program Files\Microsoft Visual Studio\VFP98\vfp6.exe"
oMyShortCut.Arguments = '-c'+'"'+Home()+'config.fpw'+'"'
oMyShortCut.WorkingDirectory = "c:\"
oMyShortCut.Save

Nota

Según la versión de Visual FoxPro que use, es posible que deba cambiar el nombre y la ruta de acceso del archivo ejecutable de Visual FoxPro en el ejemplo 2.

Ejemplo 3: Agregar un acceso directo de dirección URL al escritorio

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save

Nota

Para que se cree el acceso directo, se deben pasar parámetros válidos para todos los métodos. No aparece ningún error si uno de los parámetros es incorrecto.

Referencias

  • White paper: Windows Script Host: A universal Scripting Host for scripting languages
  • Documento técnico: referencia del programador de Windows Script Host