Creates Shortcuts for Windows users

createShortcut.vbs

'  This script creates a Desktop Shortcut
Option Explicit
Dim objShell, objDesktop, objLink

Set objShell = CreateObject("WScript.Shell")
objDesktop = objShell.SpecialFolders("Desktop")

Set myShortcut = objShell.CreateShortcut(objDesktop & "\Your Application.lnk")
myShortcut.HotKey = "CTRL+SHIFT+X"
myShortcut.TargetPath = """C:\Users\You\YourCompany\YourApplication\app.exe"""
myShortcut.IconLocation = "C:\Users\You\YourCompany\YourApplication\app.ico"
myShortcut.WorkingDirectory = "C:\Users\You\YourCompany\YourApplication"
myShortcut.WindowStyle = 3
myShortcut.Description = "Your Application Description"
myShortcut.Save()

WScript.Quit

createStartMenuShortcut.vbs

'  This script creates a Start Menu Shortcut
Dim shell, Objfso, myShortcut, allProgramMenuMR, allProgramMenu

Set Objfso = CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject("WScript.Shell")
allProgramMenu = shell.SpecialFolders("AllUsersPrograms")
allProgramMenuMR = allProgramMenu + "\YourCompany"
if not Objfso.FolderExists (allProgramMenuMR) Then
    Objfso.CreateFolder (allProgramMenuMR)
End If

Set myShortcut = shell.CreateShortcut(allProgramMenuMR + "\Your Application.lnk")
myShortcut.TargetPath = """C:\Users\You\YourCompany\YourApplication\app.exe"""
myShortcut.IconLocation = "C:\Users\You\YourCompany\YourApplication\app.ico"
myShortcut.WorkingDirectory = "C:\Users\You\YourCompany\YourApplication"
myShortcut.WindowStyle = 3
myShortcut.Description = "Your Application Description"
myShortcut.Save()
            
WScript.Quit