vbs定時關機代碼

① vbs瀹氭椂鍏蟲満

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

② 求vbs倒計時自動關機代碼。。

setws=wscript.createobject("wscript.shell")
i=inputbox("輸入定時關機時間,單位為分鍾","時間設置")
s="shutdown-s-t"&i*60
ws.runs,0