用vbs实现配置无人登录计算机时使用的屏幕保护程序

所属分类: 脚本专栏 / vbs 阅读数: 1580
收藏 0 赞 0 分享
问:
您好,脚本专家!我最近下载了你们的“脚本中心”屏幕保护程序,当有人登录计算机时,它运行起来棒极了。但是无人登录时,计算机却使用其它屏幕保护程序。如何让计算机在无人登录时也使用“脚本中心”屏幕保护程序?
-- RF
答:
您好,RF。您知道,我们遇到过这种情况,您可能在设法欺骗这些老脚本专家们。举个例子来说,我们怎么知道您希望无人登录计算机时运行的屏幕保护程序就是我们的屏幕保护程序?也许您只是奉承脚本专家,好让脚本专家回答您的问题。回答完问题后,您就会把我们甩掉,安装其它一些与脚本编写有关的屏幕保护程序作为默认屏幕保护程序。RF 啊 RF:您真的认为脚本专家头脑如此简单愿意受用这样的假意恭维吗?
嗯,您是该这样认为,因为我们确实如此:
复制代码 代码如下:

Const HKEY_USERS = &H80000003 
strComputer = "." 
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
strKeyPath = ".Default\Control Panel\Desktop" 
ValueName = "SCRNSAVE.EXE" 
strValue = "C:\WINDOWS\System32\Script Center.scr" 
objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue 

正如您所看到的,这是一个用于更改注册表的 WMI 脚本。它与我们过去为您展示的许多其它注册表修改脚本非常相似,但有一处特殊更改。在以前的脚本中,我们总是先定义一个常量,告诉脚本我们要处理 HKEY_CURRENT_USER 或 HKEY_LOCAL_MACHINE 注册表配置单元。这样做有充分的理由:我们希望将所做的一切更改都应用于当前用户或计算机本身。不过,请注意此脚本的第一行:
Const HKEY_USERS = &H80000003
秘密就在这里:这一次我们要处理 HKEY_USERS 注册表配置单元。除了其它用途外,HKEY_USERS 配置单元为您提供了这样一个场所:在其中配置的设置可应用于登录到计算机的任何用户,而不仅仅是某一特定的用户。换言之,如果您使用 HKEY_USERS 配置屏幕保护程序,该屏幕保护程序便是默认屏幕保护程序,会应用于登录到计算机的任何新用户。(除非用户明确配置其它屏幕保护程序,否则会继续应用默认屏幕保护程序。)同样,无人登录计算机时,也会使用此默认屏幕保护程序。
酷吧?顺便提一下,您还可以使用该注册表配置单元配置显示在登录屏幕上的墙纸;只需将注册表值 HKEY_USERS\.Default\Control Panel\Desktop\Wallpaper 设置为相应的文件路径即可。类似下面的代码:
复制代码 代码如下:

Const HKEY_USERS = &H80000003 
strComputer = "." 
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
strKeyPath = ".Default\Control Panel\Desktop" 
ValueName = "Wallpaper" 
strValue = "C:\WINDOWS\System32\Script Center.bmp" 
objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue 

定义常量后,接下来要连接本地计算机上的 WMI 服务(虽然此脚本在远程计算机上的运行效果同样不错)。然后,为下面三个不同的变量赋值:
• strKeyPath - HKEY_USERS 内注册表项的路径。在本例中,路径为 .Default\Control Panel\Desktop。
• ValueName - 要更改的注册表值的名称 (SCRNSAVE.EXE)。
• strValue - 要赋给 SCRNSAVE.EXE 的新值。在此脚本中,该值是此屏幕保护程序的完整路径。
最后,我们要调用 SetStringValue 方法(将常量 HKEY_USERS 和这三个变量一起作为参数传递),这样就大功告成了:
objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue
现在,如果您注销后再等几分钟,就会运行“脚本中心”屏幕保护程序。(假设注册表值 ScreenSaveActive 设置为 1;如果设置为 0,则表示禁用该屏幕保护程序。)
知道这有多简单了吧?噢,不,我们不是说脚本(虽然脚本也非常简单);我们是说要获得问题的答案有多简单,当然,您提问题的措辞很对路。就象常说的那句话,谁都爱听恭维话。
更多精彩内容其他人还在看

vbscript Split函数用法详解(字符串转数组函数)

本文详细介绍了vbscript中split函数的用法,有关split函数的一些实例,vbscript中split函数的语法介绍,有需要的朋友参考下
收藏 0 赞 0 分享

VBS实现将Excel表格保存为txt文本

希望能够找到个能给excel表另存为TXT的VBS代码,虽然另存为可以选择,但还是需要直接VBS执行这一步另存为TXT格式的,应该如何写代码呢
收藏 0 赞 0 分享

vbs解决处理TXT文本数据相关问题实现代码

使用vbs处理txt数据时,会遇到一些问题,本文将提供详细的解决方法,希望可以帮助你们
收藏 0 赞 0 分享

关于vbs 生成静态页面过程中出现的问题

访问某个aspx页面,然后把服务器返回的页面以filestream 的形式保存为html格式,接下来将介绍实现代码
收藏 0 赞 0 分享

dim函数第三个参数设置截取字符的长度问题

dim函数的第三个参数,也就是截取字符的长度,我在设置这个的时候,出了些问题,提示无效的过程调用或参数,本文详细介绍如何解决
收藏 0 赞 0 分享

邪恶的eval和new Function使用介绍

这些代码可以干什么?可以肯定的是可以干很多猥琐的事
收藏 0 赞 0 分享

WScript.Shell对象SpecialFolders属性未公开文档分享

WshShell对象的SpecialFolders属性返WshSpecialFolders 对象,该对象是一个特殊文件夹集合,其中包含整套Windows特殊文件夹
收藏 0 赞 0 分享

用VBS修改(设置)系统时间和日期的代码

用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后,这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢
收藏 0 赞 0 分享

VBS For Next循环的一些细节

For Next 语句是 VBS 中常用的循环语句,你可能已经用过无数次 For Next 循环,但是你是否注意过它的一些细节呢
收藏 0 赞 0 分享

VBS For Next循环的陷阱分享

在《VBS For Next循环的一些细节》中说到了 For Next 循环的控制变量仅仅在循环开始前求值一次,但是其中存在一处陷阱
收藏 0 赞 0 分享
查看更多