on error resume next
dim WSHshellA
set WSHshellA=wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""说我是猪。不说 我是猪 就一分钟让你关机，不心就试试看"" ",0,ture
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("wscrip.shell")
WSHshell.run "cmd.exe /c shutdown -a ",0,ture
msgbox chr(13)+chr(13)+chr(13)+"o(∩_∩)o 哈哈"

LZ以为网站服务器的管理员都是SB吗？网站运行Shell本地程序是需要权限的，没权限你能Shell方式运行服务器上的本地程序？-_-||||