Question

帮忙修改一下这个VBS程序,为什么不能运行?

dim a
shutdown.exe -s -t 120 -c "请在2分钟内输入密码！"
do
a=inputbox("密码：","密码是？",)
if a=123 then
exit do
else
msgbox "密码错误",0+16+0+4096,"Error"
end if
loop
shutdown.exe -a
msgbox "密码正确",0+64+0+4096,"身份确认"

Answer 1

shutdown.exe -s -t 120 -c "请在2分钟内输入密码！"
shutdown.exe -a

这两句错了，批处理中是这样写，到了vbs就要换成下面这样：

CreateObject("WScript.Shell").Run "Cmd /c shutdown.exe -s -t 120 -c 请在2分钟内输入密码!",0
CreateObject("WScript.Shell").Run "Cmd /c shutdown.exe -a",0