【加域系统解决自动熄屏问题】

最新推荐文章于 2024-10-02 14:16:01 发布

fx^

最新推荐文章于 2024-10-02 14:16:01 发布

阅读量2.5k

点赞数 7

文章标签： linux python 编辑器

本文链接：https://blog.csdn.net/weixin_46036074/article/details/132106345

版权

文章讲述了如何在加域系统中避免自动熄屏并减少频繁输入密码的问题，提供了两种方法：一是通过修改注册表调整屏保设置，但可能在加域电脑上无效；二是使用自定义脚本WNS_CWD_Lock_Mon.vbs控制屏幕锁定，确保不会自动进入睡眠模式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

加域系統取消自動熄屏問題

工作中，加域系统总是设置自动熄屏，所以不想一遍一遍输密码，或者不想让老板看自己在摸鱼，希望我接下来的方法可以帮助到你们
- 首先我在网上找了很多方法，我总结一下：

工作中，加域系统总是设置自动熄屏，所以不想一遍一遍输密码，或者不想让老板看自己在摸鱼，希望我接下来的方法可以帮助到你们

首先我在网上找了很多方法，我总结一下：

Win7/10屏保通过注册表来修改
cmd打开regedit
依次索引如下

计算机\HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop

将ScreenSaveActive置为0
将ScreenSaveIsSecure置为1
将ScreenSaveTimeOut置为0

—当然这个方法在我们公司的加域电脑上是不好使的，可能加域规定的比较多，那么可以试试接下来的这个方法—

使用自定义脚本设置睡眠时间

dim objWMIService, objprocess, colprocess 
dim strComputer, strList, ppPresent, i 
dim oReg, strKeyPath

set objshell = WScript.CreateObject("WScript.shell")

strcomputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

i = 1

Do while i = 1 

	Dim Processnum 
	Processnum=0 
	set colProcess = objWMIService.ExecQuery("SELECT * FROM Win32_Process") 

	For Each objProcess in colprocess 

    if objprocess.Name="wscript.exe" then
	
	
	
	if Instr(objprocess.commandline,"WNS_CWD_Lock_Mon") >0 then
	
	Processnum=Processnum+1
	
	end if
	end if

	next

	if processnum>1 then msgbox "do not run twice" : wscript.quit

	objshell.sendkeys "{NUMLOCK}"
	objshell.sendkeys "{NUMLOCK}"
	wscript.sleep 6000


	loop

'end of script

请复制保存为WNS_CWD_Lock_Mon.vbs 即可食用。

代码解析：

其实关键就三句话

objshell.sendkeys "{NUMLOCK}"
objshell.sendkeys "{NUMLOCK}"
wscript.sleep 6000
loop

上面的代码那么长是因为加上防止多次点击。亲测好使

以上为借鉴引用其他人方法，仅供参考。