用vbs制作一个音乐播放器，没有声音？

其中用到的wmplayer.ocx我在系统盘搜索不到（我安装了wmp）,这有关系吗
代码如下
Set Player = CreateObject("WMPlayer.ocx")
music=inputbox ("请输入歌曲,如d:\mp3\1.mp3；退出按取消：","vbs音乐播放器","d:\MyDocuments\My music\布拉姆斯的摇篮曲.mp3")
if music <>"" then
do
Player.url = music
music=inputbox ( "正在播放●●●" & vbCrlf & "也可选择播放其他 "& vbCrlf & "退出按取消" ,"vbs正在播放",music)
if music="" then exit do
loop
end if
Set Player=nothing
是从一个提供脚本语言的网站上弄来的，应该可以

原来的代码中没有Player.controls.play
就算是调用wmp那wmp也没有启动啊，是不是代码本身就不行

是，你原来的代码有问题。