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