帮忙分析一下这段程序

同学发过来的恶作剧程序，是vbe格式的，我用VC++打开了，内容是这样的
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 5 -c ""不说我磊B就自动关机，哈哈"" ",0 ,true
dim a
do while(a <> "磊B无敌")
a = inputbox ("说磊B无敌,就不关机,快撒,说""磊B无敌""只给你5秒时间哟，呵呵 ","磊B牛不牛","牛",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) + "哈哈哈哈，真过瘾,磊B厉害吧"

汗，谁给大概的翻译一下，谢谢啦！！
那个请问这个是用什么语言编的呀？

请高手帮忙分析一下这段程序是什么意思 谁能帮我分析一下这段程序 请高手分析一下这段程序 帮忙分析一下这段js代码 请帮忙分析一下这段感情 帮忙看一下这段程序 高手帮忙分析一下这段C的代码~` 那位高手帮忙分析一下这段HTML代码？ 帮忙分析一下这段初中的感情 帮忙分析一下这段代码!(越详细越好)