请问下面这是什么程序，顺便帮忙解释下这个程序

1.vbs:msgbox " "
2.vbs:Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("1.bat",0)
'隐藏运行1.bat,0
3.vbs: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) + ""
msgbox chr(13) + chr(13) + chr(13) + ""
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""···"" ",0 ,true
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(1

请问下面是什么程序啊？？？ 这是什么语言啊？顺便帮忙翻译！ 请问:JapaneseKeywords是什么程序?在它下面有:Uniustall是什么? 下面的程序是什么 请问下面的是什么程序格式？用什么能打开？？ 请问高手下面的程序输出的是什么？？解释一下，谢谢 帮忙编写下面的程序 帮忙注释下面的程序？？ 请问这是什么程序! 请问这是什么程序？？