Dim WSHShell

 Set WSHShell = WScript.CreateObject("WScript.Shell")

 Dim MyShortcut

' Set MyShortcut = WSHShell.CreateShortcut("%ALLUSERS%\Start Menu\Programs\ExampleApp\ExampleApp.lnk")

' MyShortcut.TargetPath = "%ProgramFiles%\ExampleApp\ExampleApp.exe"

' MyShortcut.WindowStyle = 1

' MyShortcut.Hotkey = "CTRL+SHIFT+F"

' MyShortcut.IconLocation = "notepad.exe, 0"

' MyShortcut.Description = "Shortcut Script"

' MyShortcut.WorkingDirectory = "e:\ideas_files\" & chr(37) & "USERNAME" & chr(37) & "\start-in"

 MyShortcut.Save