' This script creates a Media Player Classic Shortcut on the Desktop and Quick Launch.

Dim Act,colEnvironmentVariables, objShortCut, Shell
  Set Shell = CreateObject("WScript.Shell")
  Set colEnvironmentVariables = Shell.Environment("Volatile")
  Set Act = CreateObject("Wscript.Shell")

  Set objShortCut = Shell.CreateShortcut(Act.ExpandEnvironmentStrings("%UserProfile%\Desktop\Media Player Classic.lnk"))
   objShortCut.TargetPath = Act.ExpandEnvironmentStrings("%ProgramFiles%\K-Lite Codec Pack\Media Player Classic\mpc-hc.exe")
   objShortCut.Description = "Play digital media including music, videos, CDs, DVDs, and Blu-rays."
   objShortCut.Save

  Set objShortCut = Shell.CreateShortcut(Act.ExpandEnvironmentStrings("%AppData%\Microsoft\Internet Explorer\Quick Launch\Media Player Classic.lnk"))
   objShortCut.TargetPath = Act.ExpandEnvironmentStrings("%ProgramFiles%\K-Lite Codec Pack\Media Player Classic\mpc-hc.exe")
   objShortCut.Description = "Play digital media including music, videos, CDs, DVDs, and Blu-rays."
   objShortCut.Save