Kleiner Batch Wallpaper-Changer

@echo off & setlocal enabledelayedexpansion
set /P "anzi="<"anz.txt"  
set result=10000
if exist anz.txt set result=10%anzi%
if not exist %CD%\original mkdir %CD%\original
if not exist %CD%\autodsk mkdir %CD%\autodsk
for /f "delims=" %%i in ('dir /b *.bmp') do (   
set /a result+=1
copy "%CD%\%%i" "%CD%\autodsk\%%i"  
ren "%CD%\autodsk\%%i" !result:~-4!.bmp  
if exist "%CD%\original\%%i" ren "%CD%\%%i" "%%~ni(!result:~-4!).bmp" | move /Y "%%~ni(!result:~-4!).bmp" "%CD%\original\"  
if exist "%CD%\%%i" move /Y "%CD%\%%i" "%CD%\original\"  
if exist "%CD%\%%~ni.jpg" del "%CD%\%%~ni.jpg"  
if exist "%CD%\%%~ni.png" del "%CD%\%%~ni.png"  
)
cls
echo.
echo Alle Dateien wurden erfolgreich modifiziert.
pause >nul

@echo on & setlocal enabledelayedexpansion
title #Auto Wallpaper#
set "Input=%temp%\Input.vbs"   
REM ========================================================================================
REM Abfragen der Zeitabstände
echo WScript.Echo InputBox("Bitte gib die Abstände in Sekunden an.","Zeitabstände")>%Input%   
set break= 
for /f "delims=" %%i in ('cscript //nologo %Input%') do set "break=%%i"   
if break GTR 0 (
set break=60
)
pause >nul
set anz=0
for /f "delims=" %%i in ('dir /b autodsk\*.bmp') do (   
set /a anz+=1
)
echo %anz% > anz.txt
:start
set wallpath=Y:\Wallpaper\Wallpaper\HD\HD\autodsk
:quiet
REM ========================================================================================
REM Erzeugen einer Zufallszahl
:: set /a rand=10001 + %random% %% anz
call Random.js
set /p "rand="<"%CD%\test.txt"  
REM ========================================================================================
REM Wallpaper wird configuriert
REG ADD "HKCU\Control Panel\Desktop" /V Wallpaper /T REG_SZ /F /D "%wallpath%\%rand%.bmp"  
REG ADD "HKCU\Control Panel\Desktop" /V WallpaperStyle /T REG_SZ /F /D 0  
REG ADD "HKCU\Control Panel\Desktop" /V TileWallpaper /T REG_SZ /F /D 0  
REM ========================================================================================
REM Aktualisieren des Userprofils
%SystemRoot%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters
REM ============================================================================================
REM Aufrufen von BgInfo
::cd "Y:\Settings" 
::H:\Allgemein\Software\BgInfo\BgInfo.exe Y:\Settings\BGInfo.bgi /timer:0
REM ============================================================================================
REM Warten bis zum nächsten Wechsel
sleep %break%
goto :start

@echo off
echo Wallpaperwechsel wird gestartet...
start RunABatMinimized.vbs wallpaper.bat
echo Wallpaperwechsel wurde gestaret...
exit

'---Snipp RunABatMinimized.vbs  
Set WshShell = WScript.CreateObject("WScript.Shell")   
Return = WshShell.Run("wallpaper.bat", 0, True)   
Set WshShell = Nothing 
'---Snapp RunABatMinimized.vbs  

@echo off
echo Alle cmd-Prozesse werden beendet...
taskkill /F /FI "WINDOWTITEL eq #Auto Wallpaper#"  
echo Alle Prozesse beendet...