[系统相关] 求助bat脚本从局域网取图片设定为桌面，但是刷新后壁纸没变需要多次执行才可以

sditwzh

求助，bat批处理从局域网文件夹取图片设定为桌面，但是刷新后壁纸没变需要多次执行才可以，而且代码设定的是拉伸，注册表显示也是拉伸但是实际壁纸不是按照拉伸显示的。

下方是我写的代码

@echo off

for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Personal"') do (
set user_doc=%%j
)
echo %user_doc%

md "%user_doc%\bz"

net use Z: \\192.168.0.254\ad 123456 /user:administrator

copy Z:\img.jpg %user_doc%\bz

net use Z: /del > nul

reg add "hkcu\control panel\desktop" /v Wallpaper /d "%user_doc%\bz\img.jpg" /f
reg add "hkcu\control panel\desktop" /v WallpaperStyle /t REG_DWORD /d 2 /f
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

taskkill /f /im explorer.exe
cmd /c start explorer
复制代码

mzzyb

如果目标主机的显示器比例都是一样的，你壁纸做得像素以最大显示器为准的做，这样就不用考虑拉不拉伸了，只考虑复制和设置成壁纸就行了

mzzyb

如果你公司用了域服务器，在域控设置就好了呀~~

sditwzh

回复 6# hlzj88


    xiexie

hlzj88

我在单位局域网上使用了bat，可以把bmp作为壁纸，明天争取贴出来。

sditwzh

回复 4# yakeyun


    注册表显示是2，但是很明显图片大小不对，

yakeyun

回复 3# sditwzh

检查下注册表键值，看看拉伸参数是否修改正确。
有的注册表项需要超级管理权限，这种需要借助NSudo软件提权操作。

sditwzh

回复 2# yakeyun

壁纸设置成功了，但是不是拉伸

yakeyun

回复 1# sditwzh

@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("""%~f0""","::",,"runas",1)(close)&exit /b
setlocal enabledelayedexpansion
cd /d "%~dp0"
::试例服务器IP:192.168.1.111
::试例服务器用户名:Administrator
::试例服务器用户名登陆密码:Adm1234560
::试例服务器共享文件位置:E:\123\Wallpaper.JPG
net use * /del /y  >nul 2>nul
net use x: \\192.168.1.111\ipe$ "Adm1234560" /user:"admin"   >nul 2>nul
@net time \\192.168.1.111 /set /y  >nul 2>nul
@echo f | xcopy \\192.168.1.111\e\123\Wallpaper.JPG C:\Wallpaper.JPG  /Y >nul 2>nul
reg add "hkcu\control panel\desktop"  /v Wallpaper  /d  C:\Wallpaper.JPG  /f
::壁纸显示方式(0 居中 1 平铺  2  拉伸)
reg add "hkcu\control panel\desktop"  /v WallpaperStyle  /t  REG_DWORD  /d 2  /f
RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters
net use * /del /y  >nul 2>nul
exit
复制代码