¿Como crear un acceso directo desde cmd o vbs?

9 enero, 2015

Windows

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

 

 

, ,

No comments yet.

Leave a Reply

Verificación Humana *