1.批处理一批电脑的保源保代屏保
批处理一批电脑的屏保
@echo off
::设置屏幕保护程序路径
set ScrFile=%SystemRoot%\System\common.scr
::设置等待时间（分钟），有效值（1-）
set TimeOut=
::设置是码屏码否启用登录屏幕，1 启用，保源保代0 禁用
set Login=1
::是码屏码运行目录源码否立即生效，1 立即（系统将会注销当前帐户），保源保代其它数字下次开机后生效
set Effective=1
::如果要启用自定义三维文字，码屏码isoft 源码请把参数设为 1，保源保代其它数字为不启用自定义。码屏码并设置好其它相关内容
set EnableText3d=1
::设置三维文字显示内容
set Text3d=福建
::设置文本字体
set Font=宋体
::主执行代码，保源保代如非必要，码屏码请勿修改，保源保代以免执行出错。码屏码
>nul 2>&1 "%SystemRoot%\System\cacls.exe" "%SystemRoot%\System\config\SYSTEM"
if '%errorlevel%' NEQ '0' (
echo 正在请求临时管理员权限...
goto UACPrompt
) else ( goto Setting )
:UACPrompt
start "" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe",保源保代volatile源码"/c %~s0 ::","","runas",1)(window.close)&&exit
:Setting
set /a TimeOut*=
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
if %EnableText3d% neq 1 goto End
set "Key=HKCU\Software\Microsoft\Windows\CurrentVersion\Screensavers\ssText3d"
reg add "%key%" /v DisplayString /t REG_SZ /d "%Text3d%" /f
reg add "%key%" /v FontFace /t REG_SZ /d "%Font%" /f
reg add "%key%" /v DisplayTime /t REG_DWORD /d 0 /f
:End
echo, & echo,
if %Effective% equ 1 (
echo 按下任意键，系统将注销当前帐户，码屏码再次登录后，保源保代相关设置即可生效。linkedlist源码
echo 在注销前，请先保存您尚未保存的数据，以免注销后数据丢失。分级源码
pause>nul
shutdown /l >nul 2>nul
) else (
echo 按下任意键，将直接退出脚本，但屏幕保护设置页面的参数可能不会有变化。
echo 但有可能设置已经生效，建议注销帐户或重启电脑，以便正常生效。
pause>nul
)
exit
发送该批处理和.scr文件给每一个人，拷贝到%SystemRoot%\System\
目录下，通知执行该脚本
