¿Como crear un acceso directo desde cmd o vbs?

Paso 1 : Creamos el siguiente código en el escritorio como adirecto .vbs

############## Script vbs ###########################

 

set WshShell = WScript.CreateObject(«WScript.Shell»)
set objShell = CreateObject(«Shell.Application»)

‘Nos ubicamos para crear el enlace en el escritorio

strDesktop = WshShell.SpecialFolders(«Desktop»)
set objFolder = objShell.NameSpace(strDesktop)

‘Crear acceso directo

set oShellLink = WshShell.CreateShortcut(strDesktop & «\nombre enlace.lnk»)

‘En vez de poner la letra M: podemos poner la ruta de red
oShellLink.TargetPath = «M:\nombre archivo o carpeta.xls»
oShellLink.WindowStyle = 1
oShellLink.Description = «Pequeña descripción para saber que hace el archivo»
oShellLink.WorkingDirectory = «M:»
oShellLink.Save

Paso 2 : Creamos el archivo adirecto.cmd

################# Script ###########################

%userprofile%\Desktop\adirecto.vbs

 

Paso 3 : ejecutamos adirecto.cmd

 

 

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Verificación Humana * Límite de tiempo se agote. Por favor, recargar el CAPTCHA por favor.

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.