vbs定时关机

Set ws=CreateObject("WScript.shell")

ws.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\vbsAutoRun",WScript.ScriptFullName,"REG_SZ" '添加开机启动项，需要杀毒软件信任

Dim TimeD : TimeD = 0

Do

    WScript.Sleep 1000 '开机记时1秒

    TimeD = TimeD + 1

Loop Until TimeD = 30*60 '30分钟是1800S，当记时到1800则退出循环，执行下面语句

If Weekday(Now) = 7 Then Wscript.Quit '如果是星期六则直接退出，不执行下面的关机语句

ws.Run "shutdown -s 0",0 '直接关机命令，没有任何提示

以上代码基本上都有注释，保存为vbs后缀运行一次即可，有问题就追问哈，能实现你的目的还望及时采纳。

你好

vbs调运关机 下面代码 保存 1.vbs文件 即可

Set FSO=CreateObject("wscript.shell")

FSO.Run "cmd /c shutdown -s -f -t 4"

---