用批处理或者VBS脚本设置WIN/XP系统屏幕保护程序、等待时间和恢复时显示密码

Question

因为工作需要，有一批电脑需要统一设置屏保，请高手帮忙写个批处理或着脚本，设置WIN/XP系统屏幕保护程序、等待时间和恢复时显示密码。如图，三项都要设置

Answer 1

@echo off & title 一键设置屏幕保护 By 依梦琴瑶

::设置屏幕保护程序路径
set ScrFile=%SystemRoot%\System32\我的屏幕保护.scr

::设置等待时间（分钟），有效值（1-9999）
set TimeOut=10

::设置是否启用登录屏幕，1 启用，0 禁用
set Login=1

::是否立即生效，1 立即（系统将会注销当前帐户），其它数字下次开机后生效
set Effective=1


::主执行代码
ver|find "5.1.">nul && goto Setting

%1 echo 正在请求管理员权限。。。&&mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

:Setting
set /a TimeOut*=60
set "Key=HKCU\Control Panel\Desktop"
reg add "%key%" /v SCRNSAVE.EXE /t REG_SZ /d "%ScrFile%" /f
reg add "%key%" /v ScreenSaveTimeOut /t REG_SZ /d "%TimeOut%" /f
reg add "%key%" /v ScreenSaverIsSecure /t REG_SZ /d "%Login%" /f
echo, & echo,
if %Effective% equ 1 (
    echo 按下任意键，系统将注销当前帐户，再次登录后，相关设置即可生效。
    pause>nul
    shutdown /l >nul 2>nul
) else (
    echo 按下任意键，将直接退出脚本，但屏幕保护设置页面的参数可能不会有变化。但有可能设置已经生效，建议注销帐户或重启电脑，以便正常生效。
    pause>nul
)
exit