如何让vbs 脚本在系统锁定的状态下运行 10
如题代码如下在7:00-21:00电脑可以正常运行超过晚上21:00就自动关机,问题是人不在的时候电脑处于锁定状态就不能自动关机了OnErrorResumeNextdoi...
如题
代码如下 在7:00-21:00 电脑可以正常运行 超过晚上21:00 就自动关机,问题是人不在的时候电脑处于锁定状态就不能自动关机了
On Error Resume Next
do
if hour(now)>=21 or hour(now)<7 then
CreateObject("Wscript.Shell").Popup "非上班时间请勿使用此机,系统将于1分钟后自动关闭请注意保存文件!", 60, "提示(确定直接关机)", 0
call shut_down()
end if
wscript.sleep 10000
loop
private sub shut_down()
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(1)
Next
end sub 展开
代码如下 在7:00-21:00 电脑可以正常运行 超过晚上21:00 就自动关机,问题是人不在的时候电脑处于锁定状态就不能自动关机了
On Error Resume Next
do
if hour(now)>=21 or hour(now)<7 then
CreateObject("Wscript.Shell").Popup "非上班时间请勿使用此机,系统将于1分钟后自动关闭请注意保存文件!", 60, "提示(确定直接关机)", 0
call shut_down()
end if
wscript.sleep 10000
loop
private sub shut_down()
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(1)
Next
end sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询