Option Explicit
Dim WshShell, Pro
Set WshShell = WScript.CreateObject("WScript.Shell")
Pro = "D:\Program Files\千千静听\TTPlayer.exe D:\千千静听\默认.ttpl"
WshShell.Run Chr(34) & Pro & Chr(34),0
支持路径或文件名带空格，网上给出的VBS代码貌似没有留到空格问题，特此补充。
原文：http://www.jb51.net/article/14351.htm