VBS高手帮我完善

就是不说那四个字自动重启的```可是我怎么也不能重启啊(我菜鸟一个)

on error resume next
dim WSHshellA
const pass="我好白痴"
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run("shutdown -r -t 60 -c"),,ture
dim a
do
a=inputbox("小子,快说“我好白痴”....","说不说","不说")
if a=pass then
msgbox("！")
exit do
else
msgbox("丫的快说！")
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscrip.shell")
WSHshell.run("shutdown -a"),,true
msgbox("?")

请高手帮我完善 高手：请帮我完善这个程序的空档，多谢！！ 高手帮我完善这句话让它成为经典 帮我完善一下配置 谁帮我完善一下？ 帮我完善一这台电脑 高手帮我写个VBS脚本 挺简单的 求高手帮我写段恶作剧的VBS代码！ 高手进，帮偶完善百度空间~ 高分 vbs高手请进,帮小弟编个小VBS