ShortcutMaker.vbs

Sub Shortcut(Application,Name,Location,Icon,Hotkey)
  Dim objShell,DesktopPath,objShortCut,MyTab
  Set objShell = CreateObject("WScript.Shell")
  MyTab = Split(Application,"\")
  If Name = "" Then
    Name = MyTab(UBound(MyTab))
  End if
  Set objShortCut = objShell.CreateShortcut(DblQuote(Location & "\" & Name & ".lnk"))
  objShortCut.TargetPath = DblQuote(Application)
  ObjShortCut.IconLocation = Icon
  ObjShortCut.Hotkey = Hotkey
  objShortCut.Save
End Sub
Sub DblQuote(Str)
  DblQuote = Chr(34) & Str & Chr(34)
End Sub