求大神帮忙解释一下下面的代码为什么用.vbs运行时没有反应啊？

set ws=createobject("wscript.shell")
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub