解决加域电脑自动锁屏问题

1.never-lockout.vbs

Set ws=Wscript.CreateObject("Wscript.Shell")
If ws.expandenvironmentstrings("%strikkeyflag%")=("on")Then
        wscript.echo("Screen Never Lockout")
        ws.Environment("user").Item("strikkeyflag")="off"
        set mi=getobject("winmgmts:win32_process").instances_
        for each p in mi
        if ucase(p.name)=ucase("wscript.exe")then
            p.terminate
        End If
        Next
        wscript.quit
Else
        wscript.echo("Screen Never Lockout")
        ws.Environment("user").Item("strikkeyflag")="on"
    do
        set WshShell = CreateObject("WScript.Shell")
        WshShell.SendKeys"{ScrollLock}"
        wscript.sleep(280000)
    Loop
end if

2.stop.vbs

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 

3.run.bat

wscript "C:\Users\XXX\Desktop\never-lockout.vbs"

4.启动
点击run.bat或者点击never-lockout.vbs启动
5.关闭
点击stop.vbs