set WshShell = WScript.CreateObject("WScript.Shell")
curdir = WshShell.CurrentDirectory
         strDesktop = WshShell.SpecialFolders("Desktop")
         set oShellLink = WshShell.CreateShortcut(strDesktop & "\Acceso directo Bicentenario Segunda Edición.lnk")
         oShellLink.TargetPath = curdir & "\BicentenarioVr2.exe"
         oShellLink.WindowStyle = 1
         oShellLink.Save