Creación de 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.

Se aplica a: Windows 10 (todas las ediciones), Windows Server 2012 R2
Número de KB original: 244677

Resumen

WSH es una herramienta que permite ejecutar Microsoft Visual Basic Scripting Edition y JScript de forma nativa dentro del sistema operativo base, ya sea en Windows 95 o Windows NT 4.0. También incluye varios métodos de automatización COM que permiten realizar varias tareas fácilmente a través del modelo de objetos 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

En este programa se 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 script de Windows en el equipo. Para ejecutar uno de estos ejemplos, copie el código siguiente en un nuevo archivo de programa y ejecútelo.

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:

En función de la versión de Visual FoxPro que use, es posible que tenga que cambiar el nombre y la ruta de acceso del 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

• Notas del producto: Host de scripts de Windows: Un host de scripting universal para lenguajes de scripting
• Documento técnico: Referencia del programador del host de scripts de Windows