VBscript Acceso directo (shortcut)

Bueno les traigo un script para crear acceso directos, estos normalmente se utiliza para disponibilizar al usuario información en una carpeta compartida en la red o algún aplicativo.

VBscript Acceso Directo:

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Link = WshShell.CreateShortcut("C:\ruta_de_carpeta\Nombre_acceso_directo.lnk")
With Link
   .TargetPath = "C:\ruta_de_vinculacion"   'Archivo al cual vamos a vincular
   .Description= "" 'Descripción al pasar el mouse sobre el icono
   .HotKey = "" 'Combinación de teclas para acceso rapido
   .Save               '[Guardar todo / Crear el acceso directo]
End With