中国DOS联盟

在论坛里看到下面这个脚本：

@echo off

color 0a
title 正在更换桌面 ...
echo 正在添加注册表项目...
set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop
%regadd%" /v TileWallpaper /d "0" /f
%regadd%" /v Wallpaper /d "C:\Documents and Settings\Administrator\桌面\1.bmp" /f
%regadd%" /v WallpaperStyle /d "2" /f
echo 正在更换桌面背景
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
exit

在XP下这段脚本有效，但是win2000下就不行，壁纸没有换，检查了相关注册表项均已写入，重启了也不行。是不是win2000下的与壁纸相关的注册表项与XP不同？还是说win2000不支持这种功能？如果支持，win2000的相关注册表位置是怎么样的？

请大家指教一下，谢谢！

今天上午查了些资料，发现win2000下壁纸的相关键值是HKEY_CURRENT_USER\software\microsoft\internet explorer\desktop\general\

并且win2000下reg命令是属于外部命令，必须要从win2000的光盘上拷贝这个文件放到系统中才行的。。。

现在仍然有一个问题，在win2000下的命令不是下面这行。。执行后桌面仍然无法刷新，必须要手工重启explorer才能更新桌面
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

这是以前我在公司用的。是2003 SERVER环境
把下面的保存为 *.vbs 运行后会把E:\My Documents\桌面背景\桌面背景.bmp设置为桌面背景，不知道为什么好像不支持JPG。


dim wshShell
dim sUserName
Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)

'设定sWallPaper的值
sWallPaper = "E:\My Documents\桌面背景\桌面背景.bmp"

'更新注册表，把sWallPaper写入桌面背景的注册表位置，设置为居中
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
oShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", 1

'更新系统，让改变生效
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

[ Last edited by exzzz on 2008-12-8 at 11:36 ]