Question

vbs定时关机

请教高手帮写个简单的关机程序，VBS的。要求：晚上11点半后电脑自动关机，关机后在第二天早上八点以前开机，十分钟后就会自动关机。强制性的，不要提示，不要任何输入，星期2晚上不限制。

Answer 1

vbs代码如下:程序已经通过测试~(自动设自身为启动项)

set ws=createobject("wscript.shell")
ws.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\",wscript.scriptfullname

a=hour(now)
b=weekday(now)

select case b
case 1,3,4,5,6,7
if a>=23 then
call shut_down()
end if
if a<8 then
wscript.sleep 1000*60*10
call shut_down()
end if
case else
if a<8 then
wscript.sleep 1000*60*10
call shut_down()
end if
end select

private sub shut_down()
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end sub

Answer 2

这个问题我认为单纯用vbs完不成。
自动开机需要设置bios完成。

@echo off
for /f "tokens=1,2 delims=:" %%a in ('time /t') do (set /a a=%%a & set /a b=%%b)
set /a fi=a+1
at %fi%:%b% shutdown -s -t 600
exit
这个是开机10'自动关机
以下为设置顺序
每天23点关机（这个用bat写成后设置到系统计划任务）
第二天早上8点开机（这个设置bios）
开机十分钟关机（关机代码用vbs隐藏执行放进启动项）

中间有两个问题：
1 早上自动关机以后要删除启动项的关机代码 这个很简单 代码添加一行删除即可 这样下午再次开机就没有影响了。
2 晚上11点自动关机同时 要自动添加关机代码到启动项 这个也简单 和上一步一样

这样就基本完成你的要求。还有一个问题就是星期二晚上不受限制。不自动关机是么？这个简单 去掉周二的计划任务即可。

完成。